home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1990-05-25 | 56.6 KB | [TEXT/MACA] |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
You can browse this item here: Import 2.55.source
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, Fri May 25 15:29:37 1990, modified Fri May 25 15:29:37 1990, creator MacWrite, type ASCII, 57418 bytes "Import 2.55.source" , at 0xe0ca 348 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [MACA] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 12 49 6d 70 6f 72 74 | 20 32 2e 35 35 2e 73 6f |..Import| 2.55.so|
|00000010| 75 72 63 65 00 00 00 00 | 00 00 00 00 00 00 00 00 |urce....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 41 43 | 41 00 00 00 00 00 00 00 |.TEXTMAC|A.......|
|00000050| 00 00 00 00 00 e0 4a 00 | 00 01 5c a2 83 38 21 a2 |......J.|..\..8!.|
|00000060| 83 38 21 00 00 01 00 00 | 00 00 00 00 00 00 00 00 |.8!.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 27 55 00 00 |........|....'U..|
|00000080| 0d 20 20 20 20 20 27 20 | 43 6f 64 65 20 62 79 3a |. ' |Code by:|
|00000090| 20 20 20 20 20 20 4d 69 | 6b 65 20 4c 69 6e 69 6e | Mi|ke Linin|
|000000a0| 67 65 72 0d 20 20 20 20 | 20 27 20 20 20 20 20 20 |ger. | ' |
|000000b0| 20 20 20 20 20 20 20 20 | 20 33 38 35 20 42 6f 77 | | 385 Bow|
|000000c0| 6c 69 6e 67 20 47 72 65 | 65 6e 20 50 6c 61 63 65 |ling Gre|en Place|
|000000d0| 20 0d 20 20 20 20 20 27 | 20 20 20 20 20 20 20 20 | . '| |
|000000e0| 20 20 20 20 20 20 20 47 | 61 68 61 6e 6e 61 2c 20 | G|ahanna, |
|000000f0| 4f 68 69 6f 20 20 34 33 | 32 33 30 0d 20 20 20 20 |Ohio 43|230. |
|00000100| 20 27 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ' | |
|00000110| 20 28 36 31 34 29 20 34 | 37 31 2d 36 32 30 39 20 | (614) 4|71-6209 |
|00000120| 28 42 42 53 29 0d 0d 35 | 2d 32 35 2d 39 30 0d 0d |(BBS)..5|-25-90..|
|00000130| 49 20 61 6d 20 6d 61 6b | 69 6e 67 20 6d 6f 73 74 |I am mak|ing most|
|00000140| 20 6f 66 20 6d 79 20 63 | 6f 64 65 20 61 76 61 69 | of my c|ode avai|
|00000150| 6c 61 62 6c 65 20 74 6f | 20 61 6e 79 6f 6e 65 20 |lable to| anyone |
|00000160| 69 6e 74 65 72 65 73 74 | 65 64 20 69 6e 20 64 65 |interest|ed in de|
|00000170| 76 65 6c 6f 70 69 6e 67 | 20 0d 74 68 65 69 72 20 |veloping| .their |
|00000180| 6f 77 6e 20 53 65 63 6f | 6e 64 20 53 69 67 68 74 |own Seco|nd Sight|
|00000190| 2f 54 61 62 62 79 20 75 | 74 69 6c 69 74 69 65 73 |/Tabby u|tilities|
|000001a0| 2e 20 20 54 68 69 73 20 | 73 6f 75 72 63 65 20 69 |. This |source i|
|000001b0| 73 20 6e 6f 74 20 64 65 | 73 69 67 6e 65 64 20 74 |s not de|signed t|
|000001c0| 6f 20 62 65 20 0d 63 6f | 6d 70 69 6c 65 64 20 61 |o be .co|mpiled a|
|000001d0| 6e 64 20 72 75 6e 2e 20 | 20 49 74 20 69 73 20 6d |nd run. | It is m|
|000001e0| 69 73 73 69 6e 67 20 6b | 65 79 20 66 75 6e 63 74 |issing k|ey funct|
|000001f0| 69 6f 6e 73 20 61 6e 64 | 20 70 69 65 63 65 73 20 |ions and| pieces |
|00000200| 6f 66 20 63 6f 64 65 20 | 74 68 61 74 20 61 72 65 |of code |that are|
|00000210| 20 0d 43 6f 70 79 72 69 | 67 68 74 20 6d 65 20 61 | .Copyri|ght me a|
|00000220| 6e 64 20 6f 74 68 65 72 | 73 2c 20 74 68 61 74 20 |nd other|s, that |
|00000230| 61 72 65 20 6e 6f 74 20 | 74 6f 20 62 65 20 72 65 |are not |to be re|
|00000240| 6c 65 61 73 65 64 20 61 | 74 20 74 68 69 73 20 74 |leased a|t this t|
|00000250| 69 6d 65 2e 20 0d 20 0d | 54 68 69 73 20 63 6f 64 |ime. . .|This cod|
|00000260| 65 20 69 73 20 66 6f 72 | 20 65 78 61 6d 70 6c 65 |e is for| example|
|00000270| 20 70 75 72 70 6f 73 65 | 73 20 6f 6e 6c 79 2e 20 | purpose|s only. |
|00000280| 20 49 74 20 69 6c 6c 75 | 73 74 72 61 74 65 73 20 | It illu|strates |
|00000290| 76 61 72 69 6f 75 73 20 | 77 61 79 73 20 6f 66 20 |various |ways of |
|000002a0| 72 65 61 64 69 6e 67 0d | 77 72 69 74 69 6e 67 20 |reading.|writing |
|000002b0| 61 6e 64 20 70 72 6f 63 | 65 73 73 20 64 61 74 61 |and proc|ess data|
|000002c0| 20 66 72 6f 6d 20 61 20 | 76 61 72 69 65 74 79 20 | from a |variety |
|000002d0| 6f 66 20 53 53 2f 54 61 | 62 62 79 20 66 69 6c 65 |of SS/Ta|bby file|
|000002e0| 73 2e 20 20 49 74 20 69 | 6c 6c 75 73 74 72 61 74 |s. It i|llustrat|
|000002f0| 65 73 0d 74 68 65 20 75 | 73 65 20 6f 66 20 42 6c |es.the u|se of Bl|
|00000300| 6f 63 6b 20 52 65 61 64 | 73 20 61 6e 64 20 49 6e |ock Read|s and In|
|00000310| 64 65 78 65 73 20 61 6d | 6f 75 6e 67 20 6f 74 68 |dexes am|oung oth|
|00000320| 65 72 20 74 68 69 6e 67 | 73 2e 0d 0d 49 66 20 79 |er thing|s...If y|
|00000330| 6f 75 20 75 73 65 20 61 | 6e 79 20 70 6f 72 74 69 |ou use a|ny porti|
|00000340| 6f 6e 20 6f 66 20 74 68 | 69 73 20 63 6f 64 65 20 |on of th|is code |
|00000350| 79 6f 75 20 6d 75 73 74 | 20 61 62 69 64 65 20 62 |you must| abide b|
|00000360| 79 20 74 77 6f 20 72 75 | 6c 65 73 2c 20 6f 72 20 |y two ru|les, or |
|00000370| 79 6f 75 0d 76 6f 69 64 | 20 74 68 65 20 61 67 72 |you.void| the agr|
|00000380| 65 65 6d 65 6e 74 20 74 | 68 61 74 20 49 20 61 6d |eement t|hat I am|
|00000390| 20 6d 61 6b 69 6e 67 20 | 77 69 74 68 20 79 6f 75 | making |with you|
|000003a0| 20 61 6e 64 20 61 72 65 | 20 73 75 62 6a 65 63 74 | and are| subject|
|000003b0| 20 77 68 61 74 20 74 68 | 65 20 6c 61 77 0d 64 69 | what th|e law.di|
|000003c0| 63 74 61 74 65 73 2e 0d | 0d 54 68 65 79 20 61 72 |ctates..|.They ar|
|000003d0| 65 20 73 69 6d 70 6c 65 | 2e 20 0d 0d 31 2e 20 20 |e simple|. ..1. |
|000003e0| 49 66 20 79 6f 75 20 75 | 73 20 61 6e 79 20 6f 66 |If you u|s any of|
|000003f0| 20 74 68 69 73 20 63 6f | 64 65 20 79 6f 75 20 6d | this co|de you m|
|00000400| 75 73 74 20 67 69 76 65 | 20 4d 69 63 68 61 65 6c |ust give| Michael|
|00000410| 20 4c 69 6e 69 6e 67 65 | 72 20 61 6e 64 20 4c 69 | Lininge|r and Li|
|00000420| 6e 69 6e 67 65 72 20 0d | 54 65 63 68 6e 6f 6c 6f |ninger .|Technolo|
|00000430| 67 79 20 63 72 65 64 69 | 74 20 69 6e 20 62 6f 74 |gy credi|t in bot|
|00000440| 68 20 74 68 65 20 70 72 | 6f 67 72 61 6d 20 61 6e |h the pr|ogram an|
|00000450| 64 20 74 68 65 20 64 6f | 63 75 6d 65 6e 74 61 74 |d the do|cumentat|
|00000460| 69 6f 6e 2e 0d 0d 32 2e | 20 20 49 74 20 69 73 20 |ion...2.| It is |
|00000470| 61 67 72 65 65 64 20 49 | 20 61 6d 20 74 6f 20 72 |agreed I| am to r|
|00000480| 65 63 65 69 76 65 20 61 | 20 66 72 65 65 20 63 6f |eceive a| free co|
|00000490| 70 79 20 6f 66 20 74 68 | 65 20 70 72 6f 67 72 61 |py of th|e progra|
|000004a0| 6d 20 77 68 65 74 68 65 | 72 20 69 74 20 69 73 20 |m whethe|r it is |
|000004b0| 0d 66 72 65 65 2c 20 73 | 68 61 72 77 61 72 65 20 |.free, s|harware |
|000004c0| 6f 72 20 63 6f 6d 6d 65 | 72 63 69 61 6c 2e 0d 0d |or comme|rcial...|
|000004d0| 4e 6f 77 20 79 6f 75 20 | 6d 75 73 74 20 72 65 61 |Now you |must rea|
|000004e0| 64 20 6f 6e 20 61 20 6c | 69 74 74 6c 65 20 66 75 |d on a l|ittle fu|
|000004f0| 72 74 68 65 72 20 61 6e | 64 20 77 65 20 77 69 6c |rther an|d we wil|
|00000500| 6c 20 62 65 20 64 6f 6e | 65 2e 0d 0d 41 20 6c 69 |l be don|e...A li|
|00000510| 74 74 6c 65 20 68 69 73 | 74 6f 72 79 20 6f 6e 20 |ttle his|tory on |
|00000520| 77 68 79 20 49 20 63 68 | 6f 6f 73 65 20 5a 42 61 |why I ch|oose ZBa|
|00000530| 73 69 63 20 61 73 20 74 | 68 65 20 72 6f 6f 74 20 |sic as t|he root |
|00000540| 66 6f 72 20 6d 79 20 75 | 74 69 6c 69 74 69 65 73 |for my u|tilities|
|00000550| 2e 0d 49 20 75 73 65 20 | 74 6f 20 62 65 20 6f 6e |..I use |to be on|
|00000560| 65 20 6f 66 20 74 68 6f | 73 65 20 70 65 6f 70 6c |e of tho|se peopl|
|00000570| 65 20 74 68 61 74 20 77 | 6f 75 6c 64 20 73 6d 69 |e that w|ould smi|
|00000580| 72 6b 20 65 76 65 72 79 | 20 74 69 6d 65 20 73 6f |rk every| time so|
|00000590| 6d 65 6f 6e 65 20 6d 65 | 6e 74 69 6f 6e 65 64 0d |meone me|ntioned.|
|000005a0| 74 68 65 79 20 77 65 72 | 65 20 75 73 69 6e 67 20 |they wer|e using |
|000005b0| 42 41 53 49 43 20 28 75 | 6e 74 69 6c 20 33 20 79 |BASIC (u|ntil 3 y|
|000005c0| 65 61 72 73 20 61 67 6f | 20 49 20 61 6e 64 20 6f |ears ago| I and o|
|000005d0| 74 68 65 72 73 20 68 61 | 64 20 65 76 65 72 20 72 |thers ha|d ever r|
|000005e0| 69 67 68 74 20 74 6f 0d | 73 6d 69 72 6b 29 20 61 |ight to.|smirk) a|
|000005f0| 6e 64 20 77 6f 75 6c 64 | 20 73 61 79 20 68 6f 77 |nd would| say how|
|00000600| 20 6e 69 63 65 2e 20 20 | 42 75 74 20 74 68 6f 75 | nice. |But thou|
|00000610| 67 68 74 20 79 65 68 21 | 20 20 52 65 61 6c 20 70 |ght yeh!| Real p|
|00000620| 72 6f 67 72 61 6d 6d 65 | 72 73 20 6f 6e 6c 79 20 |rogramme|rs only |
|00000630| 75 73 65 0d 43 20 6f 72 | 20 41 73 73 65 6d 62 6c |use.C or| Assembl|
|00000640| 65 72 2e 0d 0d 54 68 65 | 6e 20 63 61 6d 65 20 61 |er...The|n came a|
|00000650| 6c 6f 6e 67 20 4d 69 63 | 72 6f 73 6f 66 74 73 20 |long Mic|rosofts |
|00000660| 51 75 69 63 6b 42 61 73 | 69 63 20 66 6f 72 20 74 |QuickBas|ic for t|
|00000670| 68 65 20 49 42 4d 2e 20 | 20 54 68 69 73 20 62 61 |he IBM. | This ba|
|00000680| 62 79 20 77 61 73 20 68 | 6f 74 20 0d 69 74 20 67 |by was h|ot .it g|
|00000690| 61 76 65 20 79 6f 75 20 | 61 6c 6c 20 66 65 61 74 |ave you |all feat|
|000006a0| 75 72 65 73 20 6f 66 20 | 43 20 61 6e 64 20 50 61 |ures of |C and Pa|
|000006b0| 73 63 61 6c 2c 20 70 6c | 75 73 20 63 6f 72 65 20 |scal, pl|us core |
|000006c0| 6c 6f 67 69 63 20 6f 66 | 20 41 73 73 65 6d 62 6c |logic of| Assembl|
|000006d0| 65 72 2c 20 0d 61 6c 6c | 20 70 61 63 6b 61 67 65 |er, .all| package|
|000006e0| 64 20 69 6e 74 6f 20 61 | 20 6e 65 61 74 20 73 75 |d into a| neat su|
|000006f0| 70 65 72 20 65 61 73 79 | 20 74 6f 20 6c 65 61 72 |per easy| to lear|
|00000700| 6e 20 61 6e 64 20 75 73 | 65 20 70 61 63 6b 61 67 |n and us|e packag|
|00000710| 65 2e 20 20 54 68 69 73 | 20 63 75 74 20 6f 75 74 |e. This| cut out|
|00000720| 0d 6d 6f 6e 74 68 73 20 | 6f 66 20 64 65 76 65 6c |.months |of devel|
|00000730| 6f 70 6d 65 6e 74 20 77 | 6f 72 6b 20 70 6c 75 73 |opment w|ork plus|
|00000740| 20 74 68 65 20 66 69 6e | 69 61 6c 20 61 70 70 6c | the fin|ial appl|
|00000750| 69 63 61 74 69 6f 6e 73 | 20 77 65 72 65 20 61 20 |ications| were a |
|00000760| 68 65 6c 6c 20 6f 66 20 | 61 20 6c 6f 74 20 0d 62 |hell of |a lot .b|
|00000770| 65 74 74 65 72 20 6c 6f | 6f 6b 69 6e 67 2c 20 63 |etter lo|oking, c|
|00000780| 61 75 73 65 20 79 6f 75 | 20 63 6f 75 6c 64 20 64 |ause you| could d|
|00000790| 6f 20 73 6f 20 6d 75 63 | 68 20 69 6e 20 61 20 73 |o so muc|h in a s|
|000007a0| 68 6f 72 74 20 70 65 72 | 69 6f 64 20 6f 66 20 74 |hort per|iod of t|
|000007b0| 69 6d 65 2e 20 20 0d 54 | 68 69 73 20 73 65 74 20 |ime. .T|his set |
|000007c0| 74 68 65 20 74 69 64 65 | 20 66 6f 72 20 61 20 6e |the tide| for a n|
|000007d0| 65 77 20 67 65 6e 65 72 | 61 74 69 6f 6e 20 6f 66 |ew gener|ation of|
|000007e0| 20 42 61 73 69 63 27 73 | 2e 20 20 5a 65 64 63 6f | Basic's|. Zedco|
|000007f0| 72 20 69 6e 74 72 6f 64 | 75 63 65 64 20 5a 42 61 |r introd|uced ZBa|
|00000800| 73 69 63 20 0d 66 6f 72 | 20 74 68 65 20 6d 61 63 |sic .for| the mac|
|00000810| 2c 20 77 68 69 63 68 20 | 67 61 76 65 20 63 6f 6d |, which |gave com|
|00000820| 70 6c 65 74 65 20 63 6f | 6e 74 72 6f 6c 20 6f 76 |plete co|ntrol ov|
|00000830| 65 72 20 74 68 65 20 74 | 6f 6f 6c 62 6f 78 20 70 |er the t|oolbox p|
|00000840| 6c 75 73 20 69 74 20 63 | 6f 6d 70 69 6c 65 64 20 |lus it c|ompiled |
|00000850| 0d 69 6e 74 6f 20 6e 69 | 63 65 20 6e 65 61 74 20 |.into ni|ce neat |
|00000860| 61 73 73 65 6d 62 6c 79 | 20 61 6e 64 20 77 61 73 |assembly| and was|
|00000870| 20 66 61 73 74 2e 20 0d | 0d 5a 42 61 73 69 63 20 | fast. .|.ZBasic |
|00000880| 49 20 68 61 76 65 20 66 | 6f 75 6e 64 20 74 6f 20 |I have f|ound to |
|00000890| 62 65 20 65 78 74 72 65 | 6d 65 6c 79 20 70 6f 77 |be extre|mely pow|
|000008a0| 65 72 66 75 6c 20 61 6e | 64 20 66 61 73 74 2c 20 |erful an|d fast, |
|000008b0| 69 6e 20 6d 6f 73 74 20 | 63 61 73 65 73 20 69 74 |in most |cases it|
|000008c0| 20 0d 6d 61 74 63 68 65 | 73 20 6f 72 20 6f 75 74 | .matche|s or out|
|000008d0| 20 70 65 72 66 6f 72 6d | 73 20 74 68 65 20 62 65 | perform|s the be|
|000008e0| 73 74 20 43 20 63 6f 6d | 70 69 6c 65 72 73 20 6f |st C com|pilers o|
|000008f0| 75 74 20 74 68 65 72 65 | 2e 20 4e 6f 77 20 77 68 |ut there|. Now wh|
|00000900| 65 6e 20 73 6f 6d 65 6f | 6e 65 20 0d 73 61 79 73 |en someo|ne .says|
|00000910| 20 68 65 68 20 49 20 66 | 69 6e 69 73 68 65 64 20 | heh I f|inished |
|00000920| 74 68 69 73 20 67 72 65 | 61 74 20 43 20 70 72 6f |this gre|at C pro|
|00000930| 6a 65 63 74 20 74 68 61 | 74 20 49 20 68 61 76 65 |ject tha|t I have|
|00000940| 20 62 65 65 6e 20 77 6f | 72 6b 69 6e 67 20 6f 6e | been wo|rking on|
|00000950| 20 66 6f 72 20 36 20 0d | 6d 6f 6e 74 68 73 2c 20 | for 6 .|months, |
|00000960| 49 20 6e 6f 77 20 73 6d | 69 72 6b 20 61 6e 64 20 |I now sm|irk and |
|00000970| 73 61 79 20 68 6f 77 20 | 6e 69 63 65 2e 20 20 42 |say how |nice. B|
|00000980| 75 74 20 74 68 69 6e 6b | 20 79 65 68 21 20 20 49 |ut think| yeh! I|
|00000990| 20 63 6f 75 6c 64 20 68 | 61 76 65 20 64 6f 6e 65 | could h|ave done|
|000009a0| 20 0d 74 68 65 20 73 61 | 6d 65 20 74 68 69 6e 67 | .the sa|me thing|
|000009b0| 20 69 6e 20 31 2f 34 20 | 74 68 65 20 74 69 6d 65 | in 1/4 |the time|
|000009c0| 20 61 6e 64 20 73 61 76 | 65 64 20 79 6f 75 20 33 | and sav|ed you 3|
|000009d0| 30 30 2c 30 30 30 2e 30 | 30 20 61 6e 64 20 65 6e |00,000.0|0 and en|
|000009e0| 64 65 64 20 75 70 20 77 | 69 74 68 20 0d 61 20 6c |ded up w|ith .a l|
|000009f0| 6f 74 20 63 6c 65 61 6e | 65 72 20 61 6e 64 20 6d |ot clean|er and m|
|00000a00| 6f 72 65 20 70 72 6f 66 | 65 73 73 69 6f 6e 61 6c |ore prof|essional|
|00000a10| 20 6c 6f 6f 6b 69 6e 67 | 20 70 72 6f 64 75 63 74 | looking| product|
|00000a20| 20 61 6c 6c 20 61 74 20 | 74 68 65 20 63 6f 73 74 | all at |the cost|
|00000a30| 20 6f 66 20 61 6e 20 0d | 65 78 74 72 61 20 31 34 | of an .|extra 14|
|00000a40| 6b 20 6f 66 20 66 69 6c | 65 20 73 69 7a 65 2e 0d |k of fil|e size..|
|00000a50| 0d 54 68 65 20 6f 6e 6c | 79 20 64 72 61 77 20 62 |.The onl|y draw b|
|00000a60| 61 63 6b 20 74 6f 20 5a | 42 61 73 69 63 20 69 73 |ack to Z|Basic is|
|00000a70| 20 69 74 20 6c 61 63 6b | 20 6f 66 20 44 61 74 61 | it lack| of Data|
|00000a80| 20 73 74 72 75 63 74 75 | 72 65 73 2c 20 62 75 74 | structu|res, but|
|00000a90| 20 74 68 69 73 20 69 73 | 0d 6d 61 64 65 20 75 70 | this is|.made up|
|00000aa0| 20 66 6f 72 20 74 68 65 | 20 75 73 65 20 6f 66 20 | for the| use of |
|00000ab0| 49 6e 64 65 78 65 73 2e | 20 20 43 20 70 72 6f 67 |Indexes.| C prog|
|00000ac0| 72 61 6d 6d 65 72 20 73 | 61 6c 69 76 61 74 65 20 |rammer s|alivate |
|00000ad0| 61 6c 6c 20 6f 76 65 72 | 20 74 68 65 20 70 6c 61 |all over| the pla|
|00000ae0| 63 65 0d 61 74 20 74 68 | 65 20 6d 65 6e 74 69 6f |ce.at th|e mentio|
|00000af0| 6e 20 6f 66 20 74 68 65 | 73 65 73 20 62 61 62 69 |n of the|ses babi|
|00000b00| 65 73 2e 20 20 54 68 65 | 79 20 67 69 76 65 20 79 |es. The|y give y|
|00000b10| 6f 75 20 70 65 72 66 6f | 72 6d 61 6e 63 65 20 79 |ou perfo|rmance y|
|00000b20| 6f 75 20 6e 65 76 65 72 | 20 64 72 65 61 6d 65 64 |ou never| dreamed|
|00000b30| 0d 6f 66 2e 20 20 4e 6f | 77 20 6f 66 20 77 65 20 |.of. No|w of we |
|00000b40| 63 6f 75 6c 64 20 6a 75 | 73 74 20 67 65 74 20 5a |could ju|st get Z|
|00000b50| 65 64 63 6f 72 20 74 6f | 20 67 69 76 65 20 75 73 |edcor to| give us|
|00000b60| 20 61 20 64 6f 7a 65 6e | 20 6d 6f 72 65 2c 20 57 | a dozen| more, W|
|00000b70| 4f 57 2e 0d 0d 4d 6f 72 | 61 6c 20 6f 66 20 74 68 |OW...Mor|al of th|
|00000b80| 65 20 73 74 6f 72 79 20 | 2d 20 44 4f 20 4e 4f 54 |e story |- DO NOT|
|00000b90| 20 45 56 45 52 20 75 6e | 64 65 72 65 73 74 69 6d | EVER un|derestim|
|00000ba0| 61 74 65 20 74 68 65 20 | 50 4f 57 45 52 20 6f 66 |ate the |POWER of|
|00000bb0| 20 43 6f 6d 70 69 6c 65 | 64 20 42 61 73 69 63 2e | Compile|d Basic.|
|00000bc0| 0d 0d 48 61 76 65 20 61 | 74 20 69 74 2e 20 20 49 |..Have a|t it. I|
|00000bd0| 20 68 6f 70 65 20 61 20 | 6c 6f 74 20 6f 66 20 70 | hope a |lot of p|
|00000be0| 65 6f 70 6c 65 20 77 69 | 6c 6c 20 75 73 65 20 74 |eople wi|ll use t|
|00000bf0| 68 69 73 20 61 73 20 61 | 20 6a 75 6d 70 69 6e 67 |his as a| jumping|
|00000c00| 20 6f 66 66 20 70 6f 69 | 6e 74 0d 61 6e 64 20 64 | off poi|nt.and d|
|00000c10| 69 76 65 20 69 6e 74 6f | 20 63 72 65 61 74 69 6e |ive into| creatin|
|00000c20| 67 20 61 20 66 6c 6f 6f | 64 20 6f 66 20 6e 65 77 |g a floo|d of new|
|00000c30| 20 53 53 2f 54 61 62 62 | 79 20 75 74 69 6c 69 74 | SS/Tabb|y utilit|
|00000c40| 69 65 73 2e 0d 0d 49 20 | 63 61 6e 20 62 65 20 72 |ies...I |can be r|
|00000c50| 65 61 63 68 65 64 20 6f | 6e 20 74 68 65 20 6e 65 |eached o|n the ne|
|00000c60| 74 77 6f 72 6b 73 20 69 | 66 20 79 6f 75 20 68 61 |tworks i|f you ha|
|00000c70| 76 65 20 71 75 65 73 74 | 69 6f 6e 73 2e 0d 0d 09 |ve quest|ions....|
|00000c80| 09 36 31 34 2d 34 37 31 | 2d 36 32 30 39 20 39 36 |.614-471|-6209 96|
|00000c90| 30 30 20 62 61 75 64 0d | 09 09 36 31 34 2d 34 37 |00 baud.|..614-47|
|00000ca0| 31 2d 35 37 33 33 20 32 | 34 30 30 20 62 61 75 64 |1-5733 2|400 baud|
|00000cb0| 0d 0d 09 09 4d 2e 4c 69 | 6e 69 6e 67 65 72 20 20 |....M.Li|ninger |
|00000cc0| 47 65 6e 69 65 0d 09 09 | 4d 69 6b 65 20 4c 69 6e |Genie...|Mike Lin|
|00000cd0| 69 6e 67 65 72 20 46 69 | 64 6f 4e 65 74 20 28 54 |inger Fi|doNet (T|
|00000ce0| 61 62 62 79 2c 20 52 52 | 48 2c 20 4d 41 4e 53 49 |abby, RR|H, MANSI|
|00000cf0| 4f 4e 20 65 63 68 6f 65 | 73 29 0d 09 09 4d 69 6b |ON echoe|s)...Mik|
|00000d00| 65 20 4c 69 6e 69 6e 67 | 65 72 20 31 3a 32 32 36 |e Lining|er 1:226|
|00000d10| 2f 32 30 30 0d 09 09 4d | 69 6b 65 20 4c 69 6e 69 |/200...M|ike Lini|
|00000d20| 6e 67 65 72 20 76 69 61 | 20 63 6d 68 47 61 74 65 |nger via| cmhGate|
|00000d30| 20 2d 20 4e 65 74 20 32 | 32 36 20 66 69 64 6f 3c | - Net 2|26 fido<|
|00000d40| 3d 3e 75 75 63 70 20 67 | 61 74 65 77 61 79 20 43 |=>uucp g|ateway C|
|00000d50| 6f 6c 2c 20 4f 48 0d 09 | 09 55 55 43 50 3a 20 2e |ol, OH..|.UUCP: .|
|00000d60| 2e 2e 21 6f 75 73 2d 63 | 69 73 21 6e 38 65 6d 72 |..!ous-c|is!n8emr|
|00000d70| 21 63 6d 68 67 61 74 65 | 21 32 30 30 2e 32 21 4d |!cmhgate|!200.2!M|
|00000d80| 69 6b 65 2e 4c 69 6e 69 | 6e 67 65 72 0d 09 09 49 |ike.Lini|nger...I|
|00000d90| 4e 45 54 3a 20 4d 69 6b | 65 2e 4c 69 6e 69 6e 67 |NET: Mik|e.Lining|
|00000da0| 65 72 40 70 32 2e 66 32 | 30 30 2e 6e 32 32 36 2e |er@p2.f2|00.n226.|
|00000db0| 7a 31 2e 46 49 44 4f 4e | 45 54 2e 4f 52 47 0d 0d |z1.FIDON|ET.ORG..|
|00000dc0| 0d 0d 20 20 20 20 27 20 | 54 68 69 73 20 62 61 62 |.. ' |This bab|
|00000dd0| 79 20 69 73 20 61 20 6c | 69 74 74 6c 65 20 6f 6c |y is a l|ittle ol|
|00000de0| 64 20 61 6e 64 20 72 65 | 66 6c 65 63 74 73 2c 20 |d and re|flects, |
|00000df0| 73 65 65 20 65 78 70 6f | 72 74 20 66 6f 72 20 62 |see expo|rt for b|
|00000e00| 6c 6f 63 6b 20 72 65 61 | 64 73 0d 0d 20 20 20 20 |lock rea|ds.. |
|00000e10| 27 20 43 6f 64 65 20 69 | 73 20 69 6e 20 5a 42 61 |' Code i|s in ZBa|
|00000e20| 73 69 63 20 35 2e 30 0d | 20 20 20 20 27 20 53 65 |sic 5.0.| ' Se|
|00000e30| 74 74 69 6e 67 73 20 38 | 2c 32 2c 34 2c 35 2c 35 |ttings 8|,2,4,5,5|
|00000e40| 30 2c 6d 6b 6c 74 2c 54 | 45 58 54 2c 4c 4f 4e 47 |0,mklt,T|EXT,LONG|
|00000e50| 2c 53 70 61 63 65 20 52 | 65 71 2e 20 61 66 74 65 |,Space R|eq. afte|
|00000e60| 72 20 4b 65 79 77 6f 72 | 64 73 0d 20 20 20 20 27 |r Keywor|ds. '|
|00000e70| 0d 20 20 20 20 27 20 53 | 74 61 72 74 20 64 61 74 |. ' S|tart dat|
|00000e80| 65 3a 20 30 33 2d 30 31 | 2d 38 39 0d 20 20 20 20 |e: 03-01|-89. |
|00000e90| 27 20 4c 61 73 74 20 6d | 6f 64 69 66 79 20 64 61 |' Last m|odify da|
|00000ea0| 74 65 3a 20 30 32 2d 32 | 34 2d 39 30 0d 20 20 20 |te: 02-2|4-90. |
|00000eb0| 20 27 20 56 65 72 73 69 | 6f 6e 3a 20 32 2e 35 35 | ' Versi|on: 2.55|
|00000ec0| 20 69 6e 63 6c 75 64 65 | 73 20 41 72 65 61 46 69 | include|s AreaFi|
|00000ed0| 78 0d 20 20 20 20 27 20 | 49 6d 70 6f 72 74 20 4d |x. ' |Import M|
|00000ee0| 6f 64 75 6c 65 20 66 6f | 72 20 54 61 62 62 79 20 |odule fo|r Tabby |
|00000ef0| 32 2e 30 0d 20 20 20 20 | 27 20 4d 4b 4c 69 20 2d |2.0. |' MKLi -|
|00000f00| 20 43 72 65 61 74 6f 72 | 0d 20 20 20 20 27 20 54 | Creator|. ' T|
|00000f10| 49 6d 70 20 2d 20 54 79 | 70 65 0d 0d 0d 20 20 20 |Imp - Ty|pe... |
|00000f20| 20 20 27 20 54 6f 20 50 | 72 65 76 65 6e 74 20 79 | ' To P|revent y|
|00000f30| 6f 75 72 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 |our appl|ication |
|00000f40| 66 72 6f 6d 20 73 61 79 | 20 22 59 6f 75 20 77 69 |from say| "You wi|
|00000f50| 6c 6c 20 6e 6f 74 20 62 | 65 20 61 62 6c 65 20 74 |ll not b|e able t|
|00000f60| 6f 20 70 72 69 6e 74 22 | 0d 20 20 20 20 20 27 20 |o print"|. ' |
|00000f70| 69 66 20 69 74 20 64 6f | 65 73 20 6e 6f 74 20 66 |if it do|es not f|
|00000f80| 69 6e 64 20 61 20 50 72 | 69 6e 74 20 44 72 69 76 |ind a Pr|int Driv|
|00000f90| 65 72 20 69 6e 20 79 6f | 75 72 20 73 79 73 74 65 |er in yo|ur syste|
|00000fa0| 6d 20 64 6f 20 74 68 65 | 20 66 6f 6c 6c 6f 77 69 |m do the| followi|
|00000fb0| 6e 67 0d 20 20 20 20 20 | 27 20 6f 6e 20 74 68 65 |ng. |' on the|
|00000fc0| 20 66 69 6e 69 61 6c 20 | 63 61 6d 70 69 6c 65 64 | finial |campiled|
|00000fd0| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 2e 20 20 44 | applica|tion. D|
|00000fe0| 4f 20 4e 4f 54 20 44 4f | 20 49 54 20 4f 4e 20 5a |O NOT DO| IT ON Z|
|00000ff0| 42 41 53 49 43 20 49 54 | 53 45 4c 46 2e 0d 20 20 |BASIC IT|SELF.. |
|00001000| 20 20 20 27 20 55 73 65 | 20 46 45 44 49 54 20 64 | ' Use| FEDIT d|
|00001010| 6f 20 61 20 48 65 78 20 | 73 65 61 72 63 68 20 66 |o a Hex |search f|
|00001020| 6f 72 20 35 30 45 44 46 | 44 33 43 20 61 6e 64 20 |or 50EDF|D3C and |
|00001030| 63 68 61 6e 67 65 20 35 | 30 45 44 20 74 6f 20 46 |change 5|0ED to F|
|00001040| 44 33 43 2e 0d 0d 20 20 | 20 20 20 27 20 53 65 74 |D3C... | ' Set|
|00001050| 73 20 75 70 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |s up app|lication|
|00001060| 2e 20 20 54 75 72 6e 73 | 20 6f 66 66 20 53 74 61 |. Turns| off Sta|
|00001070| 72 74 75 70 20 57 69 6e | 64 6f 77 2c 20 53 65 74 |rtup Win|dow, Set|
|00001080| 73 20 44 65 66 61 75 6c | 74 20 4d 6f 75 73 65 0d |s Defaul|t Mouse.|
|00001090| 20 20 20 20 20 57 49 4e | 44 4f 57 20 4f 46 46 0d | WIN|DOW OFF.|
|000010a0| 20 20 20 20 20 43 4f 4f | 52 44 49 4e 41 54 45 20 | COO|RDINATE |
|000010b0| 57 49 4e 44 4f 57 0d 20 | 20 20 20 20 46 4c 55 53 |WINDOW. | FLUS|
|000010c0| 48 45 56 45 4e 54 53 0d | 0d 20 20 20 20 20 44 49 |HEVENTS.|. DI|
|000010d0| 4d 20 54 25 2c 4c 25 2c | 42 25 2c 52 25 2c 4d 59 |M T%,L%,|B%,R%,MY|
|000010e0| 25 2c 4d 58 25 3a 20 20 | 20 20 27 20 4d 75 73 74 |%,MX%: | ' Must|
|000010f0| 20 62 65 20 64 69 6d 65 | 6e 73 69 6f 6e 65 64 20 | be dime|nsioned |
|00001100| 66 6f 72 20 74 6f 6f 6c | 62 6f 78 20 63 61 6c 6c |for tool|box call|
|00001110| 73 0d 0d 20 20 20 20 20 | 44 49 4d 20 31 20 42 69 |s.. |DIM 1 Bi|
|00001120| 74 24 28 31 30 29 3a 20 | 20 20 20 20 20 20 20 20 |t$(10): | |
|00001130| 20 20 20 20 27 20 53 74 | 6f 72 61 67 65 20 61 72 | ' St|orage ar|
|00001140| 65 61 20 66 6f 72 20 4d | 65 73 73 61 67 65 20 53 |ea for M|essage S|
|00001150| 74 61 74 75 73 20 42 79 | 74 65 0d 20 20 20 20 20 |tatus By|te. |
|00001160| 44 49 4d 20 31 20 4d 65 | 73 73 61 67 65 53 65 63 |DIM 1 Me|ssageSec|
|00001170| 74 69 6f 6e 24 28 32 35 | 35 29 3a 20 27 20 53 74 |tion$(25|5): ' St|
|00001180| 6f 72 61 67 65 20 61 72 | 65 61 20 31 20 62 79 74 |orage ar|ea 1 byt|
|00001190| 65 20 66 6f 72 20 32 35 | 35 20 6d 65 73 73 61 67 |e for 25|5 messag|
|000011a0| 65 20 73 65 63 74 69 6f | 6e 73 0d 20 20 20 20 20 |e sectio|ns. |
|000011b0| 44 49 4d 20 31 20 55 73 | 65 72 46 6c 61 67 24 28 |DIM 1 Us|erFlag$(|
|000011c0| 32 30 30 30 29 3a 20 20 | 20 20 20 20 27 20 4d 65 |2000): | ' Me|
|000011d0| 73 73 61 67 65 46 6c 61 | 67 20 62 69 74 20 2d 20 |ssageFla|g bit - |
|000011e0| 74 6f 20 61 6c 65 72 74 | 20 75 73 65 72 20 68 65 |to alert| user he|
|000011f0| 20 68 61 73 20 6d 61 69 | 6c 20 77 61 69 74 69 6e | has mai|l waitin|
|00001200| 67 0d 20 20 20 20 20 44 | 49 4d 20 33 32 20 55 73 |g. D|IM 32 Us|
|00001210| 65 72 24 28 32 30 30 30 | 29 3a 20 20 20 20 20 20 |er$(2000|): |
|00001220| 20 20 20 27 20 48 6f 6c | 64 73 20 75 73 65 72 20 | ' Hol|ds user |
|00001230| 46 69 72 73 74 20 61 6e | 64 20 4c 61 73 74 20 4e |First an|d Last N|
|00001240| 61 6d 65 20 6f 72 20 63 | 6f 6d 70 61 72 69 73 69 |ame or c|omparisi|
|00001250| 6f 6e 0d 20 20 20 20 20 | 44 49 4d 20 38 30 20 54 |on. |DIM 80 T|
|00001260| 61 62 62 79 24 28 31 30 | 30 29 3a 20 20 20 20 20 |abby$(10|0): |
|00001270| 20 20 20 20 27 20 4c 61 | 6e 75 63 68 20 53 65 71 | ' La|nuch Seq|
|00001280| 75 65 6e 63 65 20 66 6f | 72 20 72 65 73 74 20 6f |uence fo|r rest o|
|00001290| 66 20 74 61 62 62 79 20 | 63 68 61 69 6e 0d 20 20 |f tabby |chain. |
|000012a0| 20 20 20 44 49 4d 20 32 | 36 20 4d 73 67 4e 61 6d | DIM 2|6 MsgNam|
|000012b0| 65 24 28 32 35 35 29 3a | 20 20 20 20 20 20 20 27 |e$(255):| '|
|000012c0| 20 48 6f 6c 64 73 20 53 | 65 63 74 69 6f 6e 20 4e | Holds S|ection N|
|000012d0| 61 6d 65 73 0d 20 20 20 | 20 20 44 49 4d 20 4d 73 |ames. | DIM Ms|
|000012e0| 67 43 6f 75 6e 74 25 28 | 32 35 35 29 3a 20 20 20 |gCount%(|255): |
|000012f0| 20 20 20 20 20 20 27 20 | 48 6f 6c 64 73 20 69 6d | ' |Holds im|
|00001300| 70 6f 72 74 20 63 6f 75 | 6e 74 20 66 6f 72 20 74 |port cou|nt for t|
|00001310| 68 61 74 20 73 65 63 74 | 69 6f 6e 0d 20 20 20 20 |hat sect|ion. |
|00001320| 20 46 69 65 6c 64 25 3d | 31 3a 45 52 52 4f 52 3d | Field%=|1:ERROR=|
|00001330| 30 3a 43 75 72 25 3d 31 | 32 38 3a 41 72 65 61 46 |0:Cur%=1|28:AreaF|
|00001340| 69 78 46 6c 61 67 25 3d | 30 0d 20 20 20 0d 0d 20 |ixFlag%=|0. .. |
|00001350| 20 20 20 20 27 20 55 70 | 70 65 72 2f 4c 6f 77 65 | ' Up|per/Lowe|
|00001360| 72 20 43 61 73 65 20 46 | 75 6e 63 74 69 6f 6e 0d |r Case F|unction.|
|00001370| 20 0d 20 20 20 20 20 4c | 4f 4e 47 20 46 4e 20 4c | . L|ONG FN L|
|00001380| 43 41 53 45 24 28 53 74 | 69 6e 67 24 29 0d 20 20 |CASE$(St|ing$). |
|00001390| 20 20 20 20 20 20 20 20 | 46 4f 52 20 78 25 3d 32 | |FOR x%=2|
|000013a0| 20 54 4f 20 4c 45 4e 28 | 53 74 69 6e 67 24 29 0d | TO LEN(|Sting$).|
|000013b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 61 | | a|
|000013c0| 25 3d 50 45 45 4b 28 56 | 41 52 50 54 52 28 53 74 |%=PEEK(V|ARPTR(St|
|000013d0| 69 6e 67 24 29 2b 78 25 | 29 0d 20 20 20 20 20 20 |ing$)+x%|). |
|000013e0| 20 20 20 20 20 20 20 20 | 20 49 46 20 28 61 25 3e | | IF (a%>|
|000013f0| 36 34 29 20 41 4e 44 20 | 28 61 25 3c 39 31 29 20 |64) AND |(a%<91) |
|00001400| 41 4e 44 20 6b 25 3d 30 | 20 54 48 45 4e 20 61 25 |AND k%=0| THEN a%|
|00001410| 3d 61 25 2b 33 32 0d 20 | 20 20 20 20 20 20 20 20 |=a%+32. | |
|00001420| 20 20 20 20 20 20 49 46 | 20 61 25 3d 33 32 20 54 | IF| a%=32 T|
|00001430| 48 45 4e 20 6b 25 3d 31 | 20 45 4c 53 45 20 6b 25 |HEN k%=1| ELSE k%|
|00001440| 3d 30 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |=0. | |
|00001450| 20 20 50 4f 4b 45 20 56 | 41 52 50 54 52 28 53 74 | POKE V|ARPTR(St|
|00001460| 69 6e 67 24 29 2b 78 25 | 2c 61 25 0d 20 20 20 20 |ing$)+x%|,a%. |
|00001470| 20 20 20 20 20 20 4e 45 | 58 54 20 78 25 0d 20 20 | NE|XT x%. |
|00001480| 20 20 20 45 4e 44 20 46 | 4e 3d 53 74 69 6e 67 24 | END F|N=Sting$|
|00001490| 0d 0d 0d 20 20 20 20 27 | 20 63 6f 6e 76 65 72 74 |... '| convert|
|000014a0| 20 73 74 72 69 6e 67 20 | 72 65 73 6f 75 72 63 65 | string |resource|
|000014b0| 20 74 6f 20 61 20 73 74 | 72 69 6e 67 2c 20 68 61 | to a st|ring, ha|
|000014c0| 6e 64 6c 65 20 6d 75 73 | 74 20 62 65 20 70 61 73 |ndle mus|t be pas|
|000014d0| 73 65 64 20 74 6f 20 74 | 68 69 73 20 66 75 6e 63 |sed to t|his func|
|000014e0| 74 69 6f 6e 0d 20 20 0d | 20 20 20 20 20 4c 4f 4e |tion. .| LON|
|000014f0| 47 20 46 4e 20 52 65 74 | 75 72 6e 53 74 72 69 6e |G FN Ret|urnStrin|
|00001500| 67 24 28 53 48 6e 64 6c | 26 29 0d 20 20 20 20 20 |g$(SHndl|&). |
|00001510| 0d 20 20 20 20 20 09 20 | 20 20 20 46 42 79 74 65 |. . | FByte|
|00001520| 25 3d 50 45 45 4b 28 50 | 45 45 4b 20 4c 4f 4e 47 |%=PEEK(P|EEK LONG|
|00001530| 28 53 48 6e 64 6c 26 29 | 29 0d 20 20 20 20 20 09 |(SHndl&)|). .|
|00001540| 20 20 20 20 53 74 72 69 | 6e 67 24 3d 22 22 0d 20 | Stri|ng$="". |
|00001550| 20 20 20 20 20 0d 20 20 | 20 20 20 20 20 20 20 09 | . | .|
|00001560| 46 4f 52 20 49 25 3d 31 | 20 54 4f 20 46 42 79 74 |FOR I%=1| TO FByt|
|00001570| 65 25 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 09 |e%. | .|
|00001580| 09 53 74 72 69 6e 67 24 | 3d 53 74 72 69 6e 67 24 |.String$|=String$|
|00001590| 2b 43 48 52 24 28 50 45 | 45 4b 28 50 45 45 4b 20 |+CHR$(PE|EK(PEEK |
|000015a0| 4c 4f 4e 47 28 53 48 6e | 64 6c 26 29 2b 49 25 29 |LONG(SHn|dl&)+I%)|
|000015b0| 29 0d 20 20 20 20 20 20 | 20 20 20 09 4e 45 58 54 |). | .NEXT|
|000015c0| 20 49 25 0d 20 20 20 20 | 20 0d 20 20 20 20 20 45 | I%. | . E|
|000015d0| 4e 44 20 46 4e 20 3d 20 | 53 74 72 69 6e 67 24 0d |ND FN = |String$.|
|000015e0| 0d 0d 20 20 20 20 20 27 | 20 54 68 69 73 20 66 75 |.. '| This fu|
|000015f0| 6e 63 74 69 6f 6e 20 74 | 75 72 6e 73 20 61 20 50 |nction t|urns a P|
|00001600| 61 73 63 61 6c 2d 65 6e | 63 6f 64 65 64 20 73 74 |ascal-en|coded st|
|00001610| 72 69 6e 67 20 69 6e 74 | 6f 20 5a 42 61 73 69 63 |ring int|o ZBasic|
|00001620| 2d 75 73 61 62 6c 65 20 | 66 6f 72 6d 0d 0d 20 20 |-usable |form.. |
|00001630| 20 20 20 44 45 46 20 46 | 4e 20 4d 61 6b 65 53 74 | DEF F|N MakeSt|
|00001640| 72 69 6e 67 24 28 53 74 | 72 69 6e 67 24 29 20 3d |ring$(St|ring$) =|
|00001650| 20 4d 49 44 24 28 53 74 | 72 69 6e 67 24 2c 20 32 | MID$(St|ring$, 2|
|00001660| 2c 20 41 53 43 28 4c 45 | 46 54 24 28 53 74 72 69 |, ASC(LE|FT$(Stri|
|00001670| 6e 67 24 2c 31 29 29 29 | 0d 0d 0d 0d 20 20 20 20 |ng$,1)))|.... |
|00001680| 20 57 4e 44 3d 31 3a 47 | 4f 53 55 42 20 22 42 75 | WND=1:G|OSUB "Bu|
|00001690| 69 6c 64 5f 4d 61 69 6e | 5f 57 69 6e 64 6f 77 22 |ild_Main|_Window"|
|000016a0| 0d 20 20 20 20 20 47 4f | 53 55 42 20 22 43 75 72 |. GO|SUB "Cur|
|000016b0| 73 6f 72 5f 53 70 69 6e | 22 0d 0d 20 20 20 20 20 |sor_Spin|".. |
|000016c0| 27 20 4c 6f 61 64 73 20 | 73 74 61 72 74 69 6e 67 |' Loads |starting|
|000016d0| 20 76 61 6c 75 65 73 20 | 61 6e 64 20 70 61 74 68 | values |and path|
|000016e0| 6e 61 6d 65 73 20 66 72 | 6f 6d 20 53 74 72 20 52 |names fr|om Str R|
|000016f0| 65 73 6f 75 72 63 65 20 | 66 69 6c 65 0d 20 0d 20 |esource |file. . |
|00001700| 20 20 20 20 47 4f 53 55 | 42 20 22 47 65 74 5f 52 | GOSU|B "Get_R|
|00001710| 65 73 6f 75 72 63 65 5f | 56 61 6c 75 65 73 22 0d |esource_|Values".|
|00001720| 20 20 20 20 20 48 69 67 | 68 4d 65 73 73 61 67 65 | Hig|hMessage|
|00001730| 26 3d 4f 6c 64 48 69 67 | 68 4d 65 73 73 61 67 65 |&=OldHig|hMessage|
|00001740| 26 0d 20 20 20 20 20 47 | 4f 53 55 42 20 22 43 75 |&. G|OSUB "Cu|
|00001750| 72 73 6f 72 5f 53 70 69 | 6e 22 0d 0d 0d 20 20 20 |rsor_Spi|n"... |
|00001760| 20 20 27 20 43 68 65 63 | 6b 73 20 74 6f 20 73 65 | ' Chec|ks to se|
|00001770| 65 20 69 66 20 6d 6f 75 | 73 65 20 6b 65 79 20 69 |e if mou|se key i|
|00001780| 73 20 64 6f 77 6e 2c 20 | 69 66 20 73 6f 20 74 68 |s down, |if so th|
|00001790| 65 6e 20 67 6f 74 6f 20 | 63 6f 6e 66 69 67 75 72 |en goto |configur|
|000017a0| 65 20 6d 65 6e 75 0d 20 | 20 0d 20 20 20 20 20 4d |e menu. | . M|
|000017b0| 4f 55 53 45 20 4f 4e 0d | 20 20 20 20 20 44 45 46 |OUSE ON.| DEF|
|000017c0| 20 4d 4f 55 53 45 20 3d | 20 30 0d 20 20 20 20 20 | MOUSE =| 0. |
|000017d0| 48 6f 6c 64 25 3d 4d 4f | 55 53 45 28 33 29 0d 20 |Hold%=MO|USE(3). |
|000017e0| 20 20 20 20 4c 4f 4e 47 | 20 49 46 20 48 6f 6c 64 | LONG| IF Hold|
|000017f0| 25 20 3c 3e 20 30 0d 0d | 20 20 20 20 20 20 20 20 |% <> 0..| |
|00001800| 20 47 4f 53 55 42 20 22 | 43 75 72 73 6f 72 5f 53 | GOSUB "|Cursor_S|
|00001810| 70 69 6e 22 0d 20 20 20 | 20 20 20 20 20 20 44 45 |pin". | DE|
|00001820| 46 20 4d 4f 55 53 45 20 | 3d 20 2d 31 0d 20 20 20 |F MOUSE |= -1. |
|00001830| 20 20 20 20 20 20 57 49 | 4e 44 4f 57 20 43 4c 4f | WI|NDOW CLO|
|00001840| 53 45 20 23 31 0d 20 20 | 20 20 20 20 20 20 20 47 |SE #1. | G|
|00001850| 4f 53 55 42 20 22 43 6f | 6e 66 69 67 75 72 65 20 |OSUB "Co|nfigure |
|00001860| 4d 65 6e 75 22 0d 20 20 | 20 20 20 20 20 20 20 49 |Menu". | I|
|00001870| 46 20 72 73 63 73 25 3d | 31 20 54 48 45 4e 20 72 |F rscs%=|1 THEN r|
|00001880| 73 63 73 25 3d 30 3a 43 | 41 4c 4c 20 43 4c 4f 53 |scs%=0:C|ALL CLOS|
|00001890| 45 52 45 53 46 49 4c 45 | 28 52 65 66 6e 75 6d 25 |ERESFILE|(Refnum%|
|000018a0| 29 0d 20 20 20 20 20 20 | 20 20 20 43 55 52 53 4f |). | CURSO|
|000018b0| 52 20 30 0d 20 20 20 20 | 20 20 20 20 20 45 4e 44 |R 0. | END|
|000018c0| 0d 0d 20 20 20 20 20 45 | 4e 44 20 49 46 0d 20 20 |.. E|ND IF. |
|000018d0| 20 20 20 4d 4f 55 53 45 | 20 4f 46 46 0d 20 20 20 | MOUSE| OFF. |
|000018e0| 20 20 44 45 46 20 4d 4f | 55 53 45 20 3d 20 2d 31 | DEF MO|USE = -1|
|000018f0| 0d 0d 20 20 20 20 20 47 | 4f 53 55 42 20 22 43 75 |.. G|OSUB "Cu|
|00001900| 72 73 6f 72 5f 53 70 69 | 6e 22 0d 20 20 20 20 20 |rsor_Spi|n". |
|00001910| 49 46 20 4c 45 4e 28 42 | 42 53 46 6f 6c 64 65 72 |IF LEN(B|BSFolder|
|00001920| 24 29 20 3c 3d 31 20 54 | 48 45 4e 20 42 42 53 46 |$) <=1 T|HEN BBSF|
|00001930| 6f 6c 64 65 72 24 3d 22 | 22 0d 20 20 20 20 20 47 |older$="|". G|
|00001940| 65 6e 65 72 69 63 46 69 | 6c 65 24 3d 42 42 53 46 |enericFi|le$=BBSF|
|00001950| 6f 6c 64 65 72 24 2b 22 | 47 65 6e 65 72 69 63 22 |older$+"|Generic"|
|00001960| 0d 20 20 20 20 20 4d 65 | 73 73 61 67 65 73 46 69 |. Me|ssagesFi|
|00001970| 6c 65 24 3d 42 42 53 46 | 6f 6c 64 65 72 24 2b 22 |le$=BBSF|older$+"|
|00001980| 4d 65 73 73 61 67 65 73 | 22 0d 20 20 20 20 20 43 |Messages|". C|
|00001990| 6f 6e 66 69 67 46 69 6c | 65 24 3d 42 42 53 46 6f |onfigFil|e$=BBSFo|
|000019a0| 6c 64 65 72 24 2b 22 43 | 6f 6e 66 69 67 22 0d 20 |lder$+"C|onfig". |
|000019b0| 20 20 20 20 55 73 65 72 | 6c 6f 67 24 3d 42 42 53 | User|log$=BBS|
|000019c0| 46 6f 6c 64 65 72 24 2b | 22 55 73 65 72 4c 6f 67 |Folder$+|"UserLog|
|000019d0| 22 0d 20 20 20 20 20 49 | 46 20 52 52 48 6f 73 74 |". I|F RRHost|
|000019e0| 24 3d 22 22 20 54 48 45 | 4e 20 52 52 48 6f 73 74 |$="" THE|N RRHost|
|000019f0| 24 3d 22 52 65 64 20 52 | 79 64 65 72 20 48 6f 73 |$="Red R|yder Hos|
|00001a00| 74 22 0d 20 20 20 20 20 | 52 52 48 6f 73 74 24 3d |t". |RRHost$=|
|00001a10| 42 42 53 46 6f 6c 64 65 | 72 24 2b 52 52 48 6f 73 |BBSFolde|r$+RRHos|
|00001a20| 74 24 0d 20 20 20 20 20 | 54 61 62 62 79 4e 65 74 |t$. |TabbyNet|
|00001a30| 24 3d 42 42 53 46 6f 6c | 64 65 72 24 2b 22 54 61 |$=BBSFol|der$+"Ta|
|00001a40| 62 62 79 4e 65 74 22 0d | 20 20 20 20 20 4e 65 78 |bbyNet".| Nex|
|00001a50| 74 4c 61 75 6e 63 68 24 | 3d 42 42 53 46 6f 6c 64 |tLaunch$|=BBSFold|
|00001a60| 65 72 24 2b 22 4c 61 75 | 6e 63 68 2e 4e 65 78 74 |er$+"Lau|nch.Next|
|00001a70| 22 0d 20 20 20 20 20 41 | 72 65 61 46 69 78 24 3d |". A|reaFix$=|
|00001a80| 42 42 53 46 6f 6c 64 65 | 72 24 2b 41 72 65 61 46 |BBSFolde|r$+AreaF|
|00001a90| 69 78 24 0d 20 20 20 20 | 20 41 72 65 61 46 69 78 |ix$. | AreaFix|
|00001aa0| 46 69 6c 65 24 3d 42 42 | 53 24 2b 22 41 72 65 61 |File$=BB|S$+"Area|
|00001ab0| 46 69 78 2e 72 65 71 22 | 0d 0d 20 20 20 20 20 27 |Fix.req"|.. '|
|00001ac0| 20 43 68 65 63 6b 73 20 | 66 6f 72 20 76 61 6c 69 | Checks |for vali|
|00001ad0| 64 20 66 69 6c 65 20 6e | 61 6d 65 73 20 61 6e 64 |d file n|ames and|
|00001ae0| 20 70 61 74 68 73 0d 0d | 20 20 20 20 20 47 4f 53 | paths..| GOS|
|00001af0| 55 42 20 22 47 65 74 5f | 46 69 6c 65 5f 49 6e 66 |UB "Get_|File_Inf|
|00001b00| 6f 22 0d 0d 20 20 20 20 | 20 53 74 61 72 74 54 69 |o".. | StartTi|
|00001b10| 6d 65 24 3d 54 49 4d 45 | 24 2b 22 20 22 2b 44 41 |me$=TIME|$+" "+DA|
|00001b20| 54 45 24 2b 22 20 49 6d | 70 6f 72 74 20 53 74 61 |TE$+" Im|port Sta|
|00001b30| 72 74 22 0d 20 20 20 20 | 20 50 65 72 4d 69 6e 75 |rt". | PerMinu|
|00001b40| 74 65 53 74 61 72 74 26 | 3d 54 49 4d 45 52 3a 20 |teStart&|=TIMER: |
|00001b50| 27 20 53 74 61 72 69 6e | 67 20 74 69 6d 65 20 66 |' Starin|g time f|
|00001b60| 6f 72 20 63 61 6c 63 75 | 6c 61 74 69 6f 6e 20 6f |or calcu|lation o|
|00001b70| 66 20 4d 73 67 73 20 70 | 72 6f 63 65 73 73 65 64 |f Msgs p|rocessed|
|00001b80| 20 70 65 72 20 6d 69 6e | 75 74 65 0d 20 20 20 20 | per min|ute. |
|00001b90| 20 53 74 61 72 74 54 69 | 6d 65 26 3d 54 49 4d 45 | StartTi|me&=TIME|
|00001ba0| 52 0d 0d 20 20 20 27 20 | 49 6e 69 74 69 61 6c 69 |R.. ' |Initiali|
|00001bb0| 7a 65 20 6c 6f 63 61 6c | 20 76 61 72 69 61 62 6c |ze local| variabl|
|00001bc0| 65 73 0d 0d 20 20 20 20 | 20 49 6d 70 6f 72 74 43 |es.. | ImportC|
|00001bd0| 6f 75 6e 74 26 3d 30 0d | 20 20 20 20 20 45 63 68 |ount&=0.| Ech|
|00001be0| 6f 43 6f 75 6e 74 26 3d | 30 0d 20 20 20 20 20 4e |oCount&=|0. N|
|00001bf0| 65 74 43 6f 75 6e 74 26 | 3d 30 0d 20 20 20 20 20 |etCount&|=0. |
|00001c00| 42 61 72 4f 66 66 53 65 | 74 25 3d 31 39 0d 20 20 |BarOffSe|t%=19. |
|00001c10| 20 20 20 42 61 74 63 68 | 43 6f 75 6e 74 26 3d 30 | Batch|Count&=0|
|00001c20| 0d 20 20 20 20 20 4d 73 | 67 43 6f 75 6e 74 26 3d |. Ms|gCount&=|
|00001c30| 30 0d 20 20 20 20 20 44 | 65 6c 65 74 65 43 6f 75 |0. D|eleteCou|
|00001c40| 6e 74 26 3d 30 0d 20 20 | 20 20 20 42 79 74 65 73 |nt&=0. | Bytes|
|00001c50| 54 6f 50 72 6f 63 65 73 | 73 26 3d 4d 73 67 54 78 |ToProces|s&=MsgTx|
|00001c60| 74 42 79 74 65 73 26 2d | 28 4d 65 73 73 61 67 65 |tBytes&-|(Message|
|00001c70| 4f 66 66 53 65 74 26 2b | 4d 65 73 73 61 67 65 4c |OffSet&+|MessageL|
|00001c80| 65 6e 67 74 68 26 29 3a | 20 27 42 79 74 65 73 20 |ength&):| 'Bytes |
|00001c90| 61 6c 72 65 61 64 79 20 | 70 72 6f 63 65 73 73 65 |already |processe|
|00001ca0| 64 0d 20 20 20 20 20 47 | 4f 53 55 42 20 22 43 75 |d. G|OSUB "Cu|
|00001cb0| 72 73 6f 72 5f 53 70 69 | 6e 22 0d 0d 20 20 20 20 |rsor_Spi|n".. |
|00001cc0| 20 53 63 72 65 65 6e 4c | 69 6e 65 24 3d 22 2a 20 | ScreenL|ine$="* |
|00001cd0| 49 6d 70 6f 72 74 69 6e | 67 20 4d 65 73 73 61 67 |Importin|g Messag|
|00001ce0| 65 73 20 2a 22 0d 20 20 | 20 20 20 47 4f 53 55 42 |es *". | GOSUB|
|00001cf0| 20 22 53 63 72 65 65 6e | 5f 4c 6f 67 5f 44 69 73 | "Screen|_Log_Dis|
|00001d00| 70 6c 61 79 22 0d 20 20 | 20 20 0d 20 20 20 20 20 |play". | . |
|00001d10| 27 20 49 6e 69 74 69 61 | 6c 69 7a 65 20 76 61 6c |' Initia|lize val|
|00001d20| 75 65 73 20 6f 6e 20 50 | 72 6f 63 65 73 73 20 43 |ues on P|rocess C|
|00001d30| 6f 6e 74 72 6f 6c 20 53 | 63 72 65 65 6e 0d 0d 20 |ontrol S|creen.. |
|00001d40| 20 20 20 20 54 45 58 54 | 20 34 2c 31 32 2c 2c 0d | TEXT| 4,12,,.|
|00001d50| 20 20 20 20 20 43 41 4c | 4c 20 4d 4f 56 45 54 4f | CAL|L MOVETO|
|00001d60| 28 32 32 35 2c 33 35 29 | 3a 50 52 49 4e 54 20 55 |(225,35)|:PRINT U|
|00001d70| 53 49 4e 47 20 22 23 23 | 23 2c 23 23 23 22 3b 48 |SING "##|#,###";H|
|00001d80| 69 67 68 4d 65 73 73 61 | 67 65 26 0d 20 20 20 20 |ighMessa|ge&. |
|00001d90| 20 43 41 4c 4c 20 4d 4f | 56 45 54 4f 28 32 32 35 | CALL MO|VETO(225|
|00001da0| 2c 35 31 29 3a 50 52 49 | 4e 54 20 55 53 49 4e 47 |,51):PRI|NT USING|
|00001db0| 20 22 23 23 23 2c 23 23 | 23 22 3b 4c 6f 77 4d 65 | "###,##|#";LowMe|
|00001dc0| 73 73 61 67 65 26 0d 20 | 20 20 20 20 43 41 4c 4c |ssage&. | CALL|
|00001dd0| 20 4d 4f 56 45 54 4f 28 | 32 32 35 2c 36 37 29 3a | MOVETO(|225,67):|
|00001de0| 50 52 49 4e 54 20 55 53 | 49 4e 47 20 22 23 23 23 |PRINT US|ING "###|
|00001df0| 2c 23 23 23 22 3b 4f 6c | 64 48 69 67 68 4d 65 73 |,###";Ol|dHighMes|
|00001e00| 73 61 67 65 26 0d 20 20 | 20 20 20 43 41 4c 4c 20 |sage&. | CALL |
|00001e10| 4d 4f 56 45 54 4f 28 32 | 32 35 2c 39 39 29 3a 50 |MOVETO(2|25,99):P|
|00001e20| 52 49 4e 54 20 55 53 49 | 4e 47 20 22 23 23 23 2c |RINT USI|NG "###,|
|00001e30| 23 23 23 22 3b 49 6d 70 | 6f 72 74 43 6f 75 6e 74 |###";Imp|ortCount|
|00001e40| 26 0d 20 20 20 20 20 43 | 41 4c 4c 20 4d 4f 56 45 |&. C|ALL MOVE|
|00001e50| 54 4f 28 32 32 35 2c 31 | 31 35 29 3a 50 52 49 4e |TO(225,1|15):PRIN|
|00001e60| 54 20 55 53 49 4e 47 20 | 22 23 23 23 2c 23 23 23 |T USING |"###,###|
|00001e70| 22 3b 4d 65 73 73 61 67 | 65 4e 75 6d 62 65 72 26 |";Messag|eNumber&|
|00001e80| 0d 20 20 20 20 20 43 41 | 4c 4c 20 4d 4f 56 45 54 |. CA|LL MOVET|
|00001e90| 4f 28 32 32 35 2c 31 33 | 31 29 3a 50 52 49 4e 54 |O(225,13|1):PRINT|
|00001ea0| 20 55 53 49 4e 47 20 22 | 23 23 23 2c 23 23 23 22 | USING "|###,###"|
|00001eb0| 3b 42 61 74 63 68 43 6f | 75 6e 74 26 0d 20 20 20 |;BatchCo|unt&. |
|00001ec0| 20 20 43 41 4c 4c 20 4d | 4f 56 45 54 4f 28 32 32 | CALL M|OVETO(22|
|00001ed0| 35 2c 31 36 32 29 3a 50 | 52 49 4e 54 20 55 53 49 |5,162):P|RINT USI|
|00001ee0| 4e 47 20 22 23 23 23 2c | 23 23 23 22 3b 30 0d 20 |NG "###,|###";0. |
|00001ef0| 20 20 20 20 47 4f 53 55 | 42 20 22 43 75 72 73 6f | GOSU|B "Curso|
|00001f00| 72 5f 53 70 69 6e 22 0d | 0d 0d 22 49 6d 70 6f 72 |r_Spin".|.."Impor|
|00001f10| 74 5f 52 6f 75 74 69 6e | 65 22 0d 0d 0d 20 20 20 |t_Routin|e"... |
|00001f20| 20 20 61 24 3d 47 65 6e | 65 72 69 63 46 69 6c 65 | a$=Gen|ericFile|
|00001f30| 24 3a 65 72 24 3d 22 47 | 31 22 0d 20 20 20 20 20 |$:er$="G|1". |
|00001f40| 4f 4e 20 45 52 52 4f 52 | 20 47 4f 53 55 42 20 22 |ON ERROR| GOSUB "|
|00001f50| 46 69 6c 65 5f 45 72 72 | 6f 72 5f 54 72 61 70 22 |File_Err|or_Trap"|
|00001f60| 0d 20 20 20 20 20 4f 50 | 45 4e 20 22 4e 22 2c 35 |. OP|EN "N",5|
|00001f70| 2c 47 65 6e 65 72 69 63 | 46 69 6c 65 24 0d 20 20 |,Generic|File$. |
|00001f80| 20 20 20 61 24 3d 4d 73 | 67 48 64 72 46 69 6c 65 | a$=Ms|gHdrFile|
|00001f90| 6e 61 6d 65 24 3a 65 72 | 24 3d 22 48 31 22 0d 20 |name$:er|$="H1". |
|00001fa0| 20 20 20 20 4f 50 45 4e | 20 22 4e 22 2c 31 2c 4d | OPEN| "N",1,M|
|00001fb0| 73 67 48 64 72 46 69 6c | 65 6e 61 6d 65 24 2c 32 |sgHdrFil|ename$,2|
|00001fc0| 30 36 0d 20 20 20 20 20 | 61 24 3d 4d 73 67 54 78 |06. |a$=MsgTx|
|00001fd0| 74 46 69 6c 65 6e 61 6d | 65 24 3a 65 72 24 3d 22 |tFilenam|e$:er$="|
|00001fe0| 54 31 22 0d 20 20 20 20 | 20 4f 50 45 4e 20 22 41 |T1". | OPEN "A|
|00001ff0| 22 2c 32 2c 4d 73 67 54 | 78 74 46 69 6c 65 6e 61 |",2,MsgT|xtFilena|
|00002000| 6d 65 24 0d 20 20 20 20 | 20 61 24 3d 55 73 65 72 |me$. | a$=User|
|00002010| 4c 6f 67 24 3a 65 72 24 | 3d 22 55 31 22 0d 20 20 |Log$:er$|="U1". |
|00002020| 20 20 20 4f 50 45 4e 20 | 22 4e 22 2c 36 2c 55 73 | OPEN |"N",6,Us|
|00002030| 65 72 4c 6f 67 24 2c 31 | 33 36 0d 0d 20 20 20 20 |erLog$,1|36.. |
|00002040| 20 44 4f 0d 0d 20 20 20 | 20 20 20 20 20 20 20 44 | DO.. | D|
|00002050| 49 41 4c 4f 47 20 4f 4e | 0d 20 20 20 20 20 20 20 |IALOG ON|. |
|00002060| 20 20 20 44 49 41 4c 4f | 47 20 4f 46 46 0d 20 20 | DIALO|G OFF. |
|00002070| 20 20 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 20 | |. |
|00002080| 20 20 20 61 24 3d 47 65 | 6e 65 72 69 63 46 69 6c | a$=Ge|nericFil|
|00002090| 65 24 3a 65 72 24 3d 22 | 47 32 22 0d 20 20 20 20 |e$:er$="|G2". |
|000020a0| 20 20 20 20 20 20 4c 65 | 6e 67 74 68 48 6f 6c 64 | Le|ngthHold|
|000020b0| 26 3d 30 0d 20 20 20 20 | 20 20 20 20 20 20 4d 73 |&=0. | Ms|
|000020c0| 67 43 6f 75 6e 74 26 3d | 4d 73 67 43 6f 75 6e 74 |gCount&=|MsgCount|
|000020d0| 26 2b 31 0d 20 20 20 20 | 20 20 20 20 20 20 4c 49 |&+1. | LI|
|000020e0| 4e 45 20 49 4e 50 55 54 | 20 23 35 2c 52 65 63 6f |NE INPUT| #5,Reco|
|000020f0| 72 64 46 6c 61 67 24 0d | 20 20 20 20 20 20 20 20 |rdFlag$.| |
|00002100| 20 20 42 79 74 65 31 24 | 3d 4c 45 46 54 24 28 52 | Byte1$|=LEFT$(R|
|00002110| 65 63 6f 72 64 46 6c 61 | 67 24 2c 31 29 0d 20 20 |ecordFla|g$,1). |
|00002120| 20 20 20 20 20 20 20 20 | 42 79 74 65 32 24 3d 4d | |Byte2$=M|
|00002130| 49 44 24 28 52 65 63 6f | 72 64 46 6c 61 67 24 2c |ID$(Reco|rdFlag$,|
|00002140| 32 2c 31 29 0d 20 20 20 | 20 20 20 20 20 20 20 42 |2,1). | B|
|00002150| 79 74 65 33 24 3d 52 49 | 47 48 54 24 28 52 65 63 |yte3$=RI|GHT$(Rec|
|00002160| 6f 72 64 46 6c 61 67 24 | 2c 31 29 0d 0d 20 20 20 |ordFlag$|,1).. |
|00002170| 20 20 20 20 20 20 20 4c | 4f 4e 47 20 49 46 20 55 | L|ONG IF U|
|00002180| 43 41 53 45 24 28 42 79 | 74 65 31 24 29 20 3d 20 |CASE$(By|te1$) = |
|00002190| 22 44 22 0d 20 20 20 20 | 20 20 20 20 20 20 4c 65 |"D". | Le|
|000021a0| 6e 67 74 68 48 6f 6c 64 | 26 3d 4c 65 6e 67 74 68 |ngthHold|&=Length|
|000021b0| 48 6f 6c 64 26 2b 34 0d | 20 20 20 20 20 20 20 20 |Hold&+4.| |
|000021c0| 20 20 44 65 6c 65 74 65 | 43 6f 75 6e 74 26 3d 44 | Delete|Count&=D|
|000021d0| 65 6c 65 74 65 43 6f 75 | 6e 74 26 2b 31 0d 0d 22 |eleteCou|nt&+1.."|
|000021e0| 4d 65 73 73 61 67 65 5f | 53 6b 69 70 22 0d 20 20 |Message_|Skip". |
|000021f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 4c 49 | | LI|
|00002200| 4e 45 20 49 4e 50 55 54 | 20 23 35 2c 68 6f 6c 64 |NE INPUT| #5,hold|
|00002210| 24 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |$. | |
|00002220| 20 20 4c 65 6e 67 74 68 | 48 6f 6c 64 26 3d 4c 65 | Length|Hold&=Le|
|00002230| 6e 67 74 68 48 6f 6c 64 | 26 2b 4c 45 4e 28 68 6f |ngthHold|&+LEN(ho|
|00002240| 6c 64 24 29 2b 31 0d 20 | 20 20 20 20 20 20 20 20 |ld$)+1. | |
|00002250| 20 20 20 20 20 20 20 49 | 46 20 68 6f 6c 64 24 3d | I|F hold$=|
|00002260| 43 48 52 24 28 30 29 20 | 54 48 45 4e 20 47 4f 54 |CHR$(0) |THEN GOT|
|00002270| 4f 20 22 4e 65 78 74 5f | 4d 65 73 73 61 67 65 22 |O "Next_|Message"|
|00002280| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00002290| 20 47 4f 54 4f 20 22 4d | 65 73 73 61 67 65 5f 53 | GOTO "M|essage_S|
|000022a0| 6b 69 70 22 0d 0d 20 20 | 20 20 20 20 20 20 20 20 |kip".. | |
|000022b0| 20 45 4e 44 20 49 46 0d | 0d 20 20 20 20 20 20 20 | END IF.|. |
|000022c0| 20 20 49 6d 70 6f 72 74 | 43 6f 75 6e 74 26 3d 49 | Import|Count&=I|
|000022d0| 6d 70 6f 72 74 43 6f 75 | 6e 74 26 2b 31 0d 20 20 |mportCou|nt&+1. |
|000022e0| 20 20 20 20 20 20 20 50 | 6f 73 69 74 69 6f 6e 26 | P|osition&|
|000022f0| 3d 4c 4f 43 28 35 29 3a | 52 65 63 25 3d 52 45 43 |=LOC(5):|Rec%=REC|
|00002300| 28 35 29 0d 20 20 20 20 | 20 20 20 20 20 4e 65 77 |(5). | New|
|00002310| 50 6f 73 69 74 69 6f 6e | 26 3d 50 6f 73 69 74 69 |Position|&=Positi|
|00002320| 6f 6e 26 2d 34 0d 20 20 | 20 20 20 20 20 20 20 52 |on&-4. | R|
|00002330| 45 43 4f 52 44 20 23 35 | 2c 52 65 63 25 2c 4e 65 |ECORD #5|,Rec%,Ne|
|00002340| 77 50 6f 73 69 74 69 6f | 6e 26 0d 20 20 20 20 20 |wPositio|n&. |
|00002350| 20 20 20 20 50 52 49 4e | 54 20 23 35 2c 22 44 22 | PRIN|T #5,"D"|
|00002360| 3b 0d 20 20 20 20 20 20 | 20 20 20 52 45 43 4f 52 |;. | RECOR|
|00002370| 44 20 23 35 2c 52 65 63 | 25 2c 50 6f 73 69 74 69 |D #5,Rec|%,Positi|
|00002380| 6f 6e 26 0d 0d 20 20 20 | 20 20 20 20 20 20 20 4c |on&.. | L|
|00002390| 49 4e 45 20 49 4e 50 55 | 54 20 23 35 2c 43 61 74 |INE INPU|T #5,Cat|
|000023a0| 61 67 6f 72 79 24 0d 20 | 20 20 20 20 20 20 20 20 |agory$. | |
|000023b0| 20 4d 65 73 73 61 67 65 | 53 65 63 74 69 6f 6e 25 | Message|Section%|
|000023c0| 3d 56 41 4c 28 43 61 74 | 61 67 6f 72 79 24 29 0d |=VAL(Cat|agory$).|
|000023d0| 0d 20 20 20 20 20 20 20 | 20 20 20 4c 49 4e 45 20 |. | LINE |
|000023e0| 49 4e 50 55 54 20 23 35 | 2c 4d 65 73 73 61 67 65 |INPUT #5|,Message|
|000023f0| 44 61 74 65 24 0d 20 20 | 20 20 20 20 20 20 20 20 |Date$. | |
|00002400| 41 63 74 75 61 6c 4d 6f | 6e 74 68 24 3d 4c 45 46 |ActualMo|nth$=LEF|
|00002410| 54 24 28 4d 65 73 73 61 | 67 65 44 61 74 65 24 2c |T$(Messa|geDate$,|
|00002420| 32 29 3a 41 63 74 75 61 | 6c 4d 6f 6e 74 68 25 3d |2):Actua|lMonth%=|
|00002430| 56 41 4c 28 41 63 74 75 | 61 6c 4d 6f 6e 74 68 24 |VAL(Actu|alMonth$|
|00002440| 29 0d 20 20 20 20 20 20 | 20 20 20 20 41 63 74 75 |). | Actu|
|00002450| 61 6c 44 61 79 24 3d 4d | 49 44 24 28 4d 65 73 73 |alDay$=M|ID$(Mess|
|00002460| 61 67 65 44 61 74 65 24 | 2c 34 2c 32 29 3a 41 63 |ageDate$|,4,2):Ac|
|00002470| 74 75 61 6c 44 61 79 25 | 3d 56 41 4c 28 41 63 74 |tualDay%|=VAL(Act|
|00002480| 75 61 6c 44 61 79 24 29 | 0d 20 20 20 20 20 20 20 |ualDay$)|. |
|00002490| 20 20 20 41 63 74 75 61 | 6c 59 65 61 72 24 3d 52 | Actua|lYear$=R|
|000024a0| 49 47 48 54 24 28 4d 65 | 73 73 61 67 65 44 61 74 |IGHT$(Me|ssageDat|
|000024b0| 65 24 2c 32 29 3a 41 63 | 74 75 61 6c 59 65 61 72 |e$,2):Ac|tualYear|
|000024c0| 25 3d 56 41 4c 28 41 63 | 74 75 61 6c 59 65 61 72 |%=VAL(Ac|tualYear|
|000024d0| 24 29 0d 20 20 20 20 20 | 20 20 20 20 20 0d 20 20 |$). | . |
|000024e0| 20 20 20 20 20 20 20 20 | 4c 49 4e 45 20 49 4e 50 | |LINE INP|
|000024f0| 55 54 20 23 35 2c 4d 65 | 73 73 61 67 65 54 69 6d |UT #5,Me|ssageTim|
|00002500| 65 24 0d 20 20 20 20 20 | 20 20 20 20 20 41 63 74 |e$. | Act|
|00002510| 75 61 6c 48 6f 75 72 31 | 24 3d 4c 45 46 54 24 28 |ualHour1|$=LEFT$(|
|00002520| 4d 65 73 73 61 67 65 54 | 69 6d 65 24 2c 32 29 3a |MessageT|ime$,2):|
|00002530| 41 63 74 75 61 6c 48 6f | 75 72 25 3d 56 41 4c 28 |ActualHo|ur%=VAL(|
|00002540| 41 63 74 75 61 6c 48 6f | 75 72 31 24 29 0d 20 20 |ActualHo|ur1$). |
|00002550| 20 20 20 20 20 20 20 20 | 41 63 74 75 61 6c 4d 69 | |ActualMi|
|00002560| 6e 75 74 65 31 24 3d 4d | 49 44 24 28 4d 65 73 73 |nute1$=M|ID$(Mess|
|00002570| 61 67 65 54 69 6d 65 24 | 2c 34 2c 32 29 3a 41 63 |ageTime$|,4,2):Ac|
|00002580| 74 75 61 6c 4d 69 6e 75 | 74 65 25 3d 56 41 4c 28 |tualMinu|te%=VAL(|
|00002590| 41 63 74 75 61 6c 4d 69 | 6e 75 74 65 31 24 29 0d |ActualMi|nute1$).|
|000025a0| 20 20 20 20 20 20 20 20 | 20 20 41 63 74 75 61 6c | | Actual|
|000025b0| 53 65 63 6f 6e 64 31 24 | 3d 52 49 47 48 54 24 28 |Second1$|=RIGHT$(|
|000025c0| 4d 65 73 73 61 67 65 54 | 69 6d 65 24 2c 32 29 3a |MessageT|ime$,2):|
|000025d0| 41 63 74 75 61 6c 53 65 | 63 6f 6e 64 25 3d 56 41 |ActualSe|cond%=VA|
|000025e0| 4c 28 41 63 74 75 61 6c | 53 65 63 6f 6e 64 31 24 |L(Actual|Second1$|
|000025f0| 29 0d 0d 20 20 20 20 20 | 20 20 20 20 20 4d 6f 6e |).. | Mon|
|00002600| 74 68 31 24 3d 4c 45 46 | 54 24 28 44 41 54 45 24 |th1$=LEF|T$(DATE$|
|00002610| 2c 32 29 3a 4d 6f 6e 74 | 68 25 3d 56 41 4c 28 4d |,2):Mont|h%=VAL(M|
|00002620| 6f 6e 74 68 31 24 29 0d | 20 20 20 20 20 20 20 20 |onth1$).| |
|00002630| 20 20 44 61 79 31 24 3d | 4d 49 44 24 28 44 41 54 | Day1$=|MID$(DAT|
|00002640| 45 24 2c 34 2c 32 29 3a | 44 61 79 25 3d 56 41 4c |E$,4,2):|Day%=VAL|
|00002650| 28 44 61 79 31 24 29 0d | 20 20 20 20 20 20 20 20 |(Day1$).| |
|00002660| 20 20 59 65 61 72 31 24 | 3d 52 49 47 48 54 24 28 | Year1$|=RIGHT$(|
|00002670| 44 41 54 45 24 2c 32 29 | 3a 59 65 61 72 25 3d 56 |DATE$,2)|:Year%=V|
|00002680| 41 4c 28 59 65 61 72 31 | 24 29 0d 0d 20 20 20 20 |AL(Year1|$).. |
|00002690| 20 20 20 20 20 20 48 6f | 75 72 31 24 3d 4c 45 46 | Ho|ur1$=LEF|
|000026a0| 54 24 28 54 49 4d 45 24 | 2c 32 29 3a 48 6f 75 72 |T$(TIME$|,2):Hour|
|000026b0| 25 3d 56 41 4c 28 48 6f | 75 72 31 24 29 0d 20 20 |%=VAL(Ho|ur1$). |
|000026c0| 20 20 20 20 20 20 20 20 | 4d 69 6e 75 74 65 31 24 | |Minute1$|
|000026d0| 3d 4d 49 44 24 28 54 49 | 4d 45 24 2c 34 2c 32 29 |=MID$(TI|ME$,4,2)|
|000026e0| 3a 4d 69 6e 75 74 65 25 | 3d 56 41 4c 28 4d 69 6e |:Minute%|=VAL(Min|
|000026f0| 75 74 65 31 24 29 0d 20 | 20 20 20 20 20 20 20 20 |ute1$). | |
|00002700| 20 53 65 63 6f 6e 64 31 | 24 3d 52 49 47 48 54 24 | Second1|$=RIGHT$|
|00002710| 28 54 49 4d 45 24 2c 32 | 29 3a 53 65 63 6f 6e 64 |(TIME$,2|):Second|
|00002720| 25 3d 56 41 4c 28 53 65 | 63 6f 6e 64 31 24 29 0d |%=VAL(Se|cond1$).|
|00002730| 0d 20 20 20 20 20 20 20 | 20 20 20 4c 49 4e 45 20 |. | LINE |
|00002740| 49 4e 50 55 54 20 23 35 | 2c 4e 6f 64 65 24 0d 20 |INPUT #5|,Node$. |
|00002750| 20 20 20 20 20 20 20 20 | 20 6c 25 3d 4c 45 4e 28 | | l%=LEN(|
|00002760| 4e 6f 64 65 24 29 0d 20 | 20 20 20 20 20 20 20 20 |Node$). | |
|00002770| 20 4d 65 73 73 61 67 65 | 44 65 73 74 69 6e 61 74 | Message|Destinat|
|00002780| 69 6f 6e 24 3d 4e 6f 64 | 65 24 0d 0d 20 20 20 20 |ion$=Nod|e$.. |
|00002790| 20 20 20 20 20 20 4c 49 | 4e 45 20 49 4e 50 55 54 | LI|NE INPUT|
|000027a0| 20 23 35 2c 4d 65 73 73 | 61 67 65 46 72 6f 6d 24 | #5,Mess|ageFrom$|
|000027b0| 0d 20 20 20 20 20 20 20 | 20 20 20 4c 49 4e 45 20 |. | LINE |
|000027c0| 49 4e 50 55 54 20 23 35 | 2c 4d 65 73 73 61 67 65 |INPUT #5|,Message|
|000027d0| 54 6f 24 0d 20 20 20 20 | 20 20 20 20 20 20 4c 49 |To$. | LI|
|000027e0| 4e 45 20 49 4e 50 55 54 | 20 23 35 2c 4d 65 73 73 |NE INPUT| #5,Mess|
|000027f0| 61 67 65 53 75 62 6a 65 | 63 74 24 0d 0d 20 20 20 |ageSubje|ct$.. |
|00002800| 20 20 20 20 20 20 20 4c | 4f 4e 47 20 49 46 20 52 | L|ONG IF R|
|00002810| 49 47 48 54 24 28 4d 65 | 73 73 61 67 65 54 6f 24 |IGHT$(Me|ssageTo$|
|00002820| 2c 32 29 20 3d 20 22 5e | 50 22 0d 20 20 20 20 20 |,2) = "^|P". |
|00002830| 20 20 20 20 20 20 20 20 | 20 20 20 6c 25 3d 4c 45 | | l%=LE|
|00002840| 4e 28 4d 65 73 73 61 67 | 65 54 6f 24 29 0d 20 20 |N(Messag|eTo$). |
|00002850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 4d 65 | | Me|
|00002860| 73 73 61 67 65 54 6f 24 | 3d 4c 45 46 54 24 28 4d |ssageTo$|=LEFT$(M|
|00002870| 65 73 73 61 67 65 54 6f | 24 2c 6c 25 2d 32 29 0d |essageTo|$,l%-2).|
|00002880| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002890| 4d 65 73 73 61 67 65 53 | 65 63 74 69 6f 6e 25 3d |MessageS|ection%=|
|000028a0| 45 4d 61 69 6c 41 72 65 | 61 26 0d 20 20 20 20 20 |EMailAre|a&. |
|000028b0| 20 20 20 20 20 45 4e 44 | 20 49 46 20 20 20 20 20 | END| IF |
|000028c0| 20 20 20 20 20 20 20 20 | 20 0d 0d 20 20 20 20 20 | | .. |
|000028d0| 20 20 20 20 20 4c 4f 4e | 47 20 49 46 20 52 49 47 | LON|G IF RIG|
|000028e0| 48 54 24 28 4d 65 73 73 | 61 67 65 53 75 62 6a 65 |HT$(Mess|ageSubje|
|000028f0| 63 74 24 2c 32 29 20 3d | 20 22 5e 50 22 0d 20 20 |ct$,2) =| "^P". |
|00002900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6c 25 | | l%|
|00002910| 3d 4c 45 4e 28 4d 65 73 | 73 61 67 65 54 6f 24 29 |=LEN(Mes|sageTo$)|
|00002920| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00002930| 20 4d 65 73 73 61 67 65 | 53 75 62 6a 65 63 74 24 | Message|Subject$|
|00002940| 3d 4c 45 46 54 24 28 4d | 65 73 73 61 67 65 53 75 |=LEFT$(M|essageSu|
|00002950| 62 6a 65 63 74 24 2c 6c | 25 2d 32 29 0d 20 20 20 |bject$,l|%-2). |
|00002960| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 4d 65 73 | | Mes|
|00002970| 73 61 67 65 53 65 63 74 | 69 6f 6e 25 3d 45 4d 61 |sageSect|ion%=EMa|
|00002980| 69 6c 41 72 65 61 26 0d | 20 20 20 20 20 20 20 20 |ilArea&.| |
|00002990| 20 20 45 4e 44 20 49 46 | 20 20 20 20 20 20 20 20 | END IF| |
|000029a0| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 0d 20 20 | . | . |
|000029b0| 20 20 20 20 20 20 20 20 | 49 46 20 4d 65 73 73 61 | |IF Messa|
|000029c0| 67 65 53 65 63 74 69 6f | 6e 25 3d 30 20 54 48 45 |geSectio|n%=0 THE|
|000029d0| 4e 20 4d 65 73 73 61 67 | 65 53 65 63 74 69 6f 6e |N Messag|eSection|
|000029e0| 25 3d 4e 65 74 4d 61 69 | 6c 41 72 65 61 26 0d 20 |%=NetMai|lArea&. |
|000029f0| 20 20 20 20 20 20 20 20 | 20 4c 4f 4e 47 20 49 46 | | LONG IF|
|00002a00| 20 4d 65 73 73 61 67 65 | 53 65 63 74 69 6f 6e 25 | Message|Section%|
|00002a10| 20 3d 20 4e 65 74 4d 61 | 69 6c 41 72 65 61 26 0d | = NetMa|ilArea&.|
|00002a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 4e | | N|
|00002a30| 65 74 43 6f 75 6e 74 26 | 20 3d 20 4e 65 74 43 6f |etCount&| = NetCo|
|00002a40| 75 6e 74 26 2b 31 0d 20 | 20 20 20 20 20 20 20 20 |unt&+1. | |
|00002a50| 20 58 45 4c 53 45 0d 20 | 20 20 20 20 20 20 20 20 | XELSE. | |
|00002a60| 20 20 20 20 20 20 45 63 | 68 6f 43 6f 75 6e 74 26 | Ec|hoCount&|
|00002a70| 20 3d 20 45 63 68 6f 43 | 6f 75 6e 74 26 2b 31 0d | = EchoC|ount&+1.|
|00002a80| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 20 49 46 | | END IF|
|00002a90| 0d 20 20 20 20 20 20 20 | 20 20 20 4d 73 67 43 6f |. | MsgCo|
|00002aa0| 75 6e 74 25 28 4d 65 73 | 73 61 67 65 53 65 63 74 |unt%(Mes|sageSect|
|00002ab0| 69 6f 6e 25 29 20 3d 20 | 4d 73 67 43 6f 75 6e 74 |ion%) = |MsgCount|
|00002ac0| 25 28 4d 65 73 73 61 67 | 65 53 65 63 74 69 6f 6e |%(Messag|eSection|
|00002ad0| 25 29 2b 31 0d 0d 20 20 | 20 20 20 20 20 20 20 20 |%)+1.. | |
|00002ae0| 4c 65 6e 67 74 68 48 6f | 6c 64 26 3d 4c 65 6e 67 |LengthHo|ld&=Leng|
|00002af0| 74 68 48 6f 6c 64 26 2b | 33 30 2b 4c 45 4e 28 4d |thHold&+|30+LEN(M|
|00002b00| 65 73 73 61 67 65 46 72 | 6f 6d 24 29 2b 4c 45 4e |essageFr|om$)+LEN|
|00002b10| 28 4d 65 73 73 61 67 65 | 54 6f 24 29 2b 4c 45 4e |(Message|To$)+LEN|
|00002b20| 28 4d 65 73 73 61 67 65 | 53 75 62 6a 65 63 74 24 |(Message|Subject$|
|00002b30| 29 0d 0d 20 20 20 20 20 | 20 20 20 20 20 27 20 63 |).. | ' c|
|00002b40| 68 65 63 6b 73 20 66 6f | 72 20 6d 65 73 73 61 67 |hecks fo|r messag|
|00002b50| 65 73 20 61 64 64 72 65 | 73 73 65 64 20 74 6f 20 |es addre|ssed to |
|00002b60| 53 79 73 6f 70 20 6f 72 | 20 53 79 73 74 65 6d 20 |Sysop or| System |
|00002b70| 4f 70 65 72 61 74 6f 72 | 0d 0d 20 20 20 20 20 20 |Operator|.. |
|00002b80| 20 20 20 20 4c 4f 4e 47 | 20 49 46 20 55 43 41 53 | LONG| IF UCAS|
|00002b90| 45 24 28 4d 65 73 73 61 | 67 65 54 6f 24 29 20 3d |E$(Messa|geTo$) =|
|00002ba0| 20 22 53 59 53 4f 50 22 | 20 4f 52 20 55 43 41 53 | "SYSOP"| OR UCAS|
|00002bb0| 45 24 28 4d 65 73 73 61 | 67 65 54 6f 24 29 20 3d |E$(Messa|geTo$) =|
|00002bc0| 20 22 53 59 53 54 45 4d | 20 4f 50 45 52 41 54 4f | "SYSTEM| OPERATO|
|00002bd0| 52 22 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |R". | |
|00002be0| 20 20 4d 65 73 73 61 67 | 65 54 6f 24 3d 53 79 73 | Messag|eTo$=Sys|
|00002bf0| 6f 70 4e 61 6d 65 24 0d | 20 20 20 20 20 20 20 20 |opName$.| |
|00002c00| 20 20 45 4e 44 20 49 46 | 0d 0d 20 20 20 20 20 20 | END IF|.. |
|00002c10| 20 20 20 20 27 20 63 68 | 65 63 6b 73 20 66 6f 72 | ' ch|ecks for|
|00002c20| 20 41 52 45 41 46 49 58 | 20 52 65 71 75 65 73 74 | AREAFIX| Request|
|00002c30| 0d 0d 20 20 20 20 20 20 | 20 20 20 20 4c 4f 4e 47 |.. | LONG|
|00002c40| 20 49 46 20 4c 45 46 54 | 24 28 55 43 41 53 45 24 | IF LEFT|$(UCASE$|
|00002c50| 28 4d 65 73 73 61 67 65 | 54 6f 24 29 2c 37 29 3d |(Message|To$),7)=|
|00002c60| 22 41 52 45 41 46 49 58 | 22 20 41 4e 44 20 62 35 |"AREAFIX|" AND b5|
|00002c70| 25 3d 32 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |%=2. | |
|00002c80| 20 20 20 4e 75 6c 6c 24 | 3d 43 48 52 24 28 30 29 | Null$|=CHR$(0)|
|00002c90| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00002ca0| 47 4f 53 55 42 20 22 41 | 72 65 61 46 69 78 22 0d |GOSUB "A|reaFix".|
|00002cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 47 | | G|
|00002cc0| 4f 54 4f 20 22 53 63 72 | 65 65 6e 5f 55 70 64 61 |OTO "Scr|een_Upda|
|00002cd0| 74 65 22 0d 20 20 20 20 | 20 20 20 20 20 20 45 4e |te". | EN|
|00002ce0| 44 20 49 46 0d 0d 20 20 | 20 20 20 20 20 20 20 20 |D IF.. | |
|00002cf0| 27 20 63 6f 6e 76 65 72 | 74 73 20 54 6f 20 61 6e |' conver|ts To an|
|00002d00| 64 20 46 72 6f 6d 20 69 | 6e 74 6f 20 55 70 70 65 |d From i|nto Uppe|
|00002d10| 72 2f 4c 6f 77 65 72 20 | 43 61 73 65 20 53 79 6e |r/Lower |Case Syn|
|00002d20| 74 61 78 0d 0d 20 20 20 | 20 20 20 20 20 20 20 4d |tax.. | M|
|00002d30| 65 73 73 61 67 65 46 72 | 6f 6d 24 20 3d 20 46 4e |essageFr|om$ = FN|
|00002d40| 20 4c 43 41 53 45 24 28 | 4d 65 73 73 61 67 65 46 | LCASE$(|MessageF|
|00002d50| 72 6f 6d 24 29 0d 20 20 | 20 20 20 20 20 20 20 20 |rom$). | |
|00002d60| 4d 65 73 73 61 67 65 54 | 6f 24 20 3d 20 46 4e 20 |MessageT|o$ = FN |
|00002d70| 4c 43 41 53 45 24 28 4d | 65 73 73 61 67 65 54 6f |LCASE$(M|essageTo|
|00002d80| 24 29 0d 0d 20 20 20 20 | 20 20 20 20 20 20 4d 65 |$).. | Me|
|00002d90| 73 73 61 67 65 55 73 65 | 72 48 6f 6c 64 24 3d 4d |ssageUse|rHold$=M|
|00002da0| 65 73 73 61 67 65 54 6f | 24 0d 0d 20 20 20 20 20 |essageTo|$.. |
|00002db0| 20 20 20 20 20 48 69 67 | 68 4d 65 73 73 61 67 65 | Hig|hMessage|
|00002dc0| 26 3d 48 69 67 68 4d 65 | 73 73 61 67 65 26 2b 31 |&=HighMe|ssage&+1|
|00002dd0| 0d 20 20 20 20 20 20 20 | 20 20 20 4d 65 73 73 61 |. | Messa|
|00002de0| 67 65 4e 75 6d 62 65 72 | 26 3d 48 69 67 68 4d 65 |geNumber|&=HighMe|
|00002df0| 73 73 61 67 65 26 0d 20 | 20 20 20 20 20 20 20 20 |ssage&. | |
|00002e00| 20 52 65 63 6f 72 64 43 | 6f 75 6e 74 26 3d 52 65 | RecordC|ount&=Re|
|00002e10| 63 6f 72 64 43 6f 75 6e | 74 26 2b 31 0d 20 20 20 |cordCoun|t&+1. |
|00002e20| 20 20 20 20 20 20 20 52 | 63 74 26 3d 52 65 63 6f | R|ct&=Reco|
|00002e30| 72 64 43 6f 75 6e 74 26 | 0d 0d 0d 20 20 20 20 20 |rdCount&|... |
|00002e40| 20 20 20 20 20 4d 65 73 | 73 61 67 65 4f 66 66 53 | Mes|sageOffS|
|00002e50| 65 74 26 3d 4d 73 67 54 | 78 74 42 79 74 65 73 26 |et&=MsgT|xtBytes&|
|00002e60| 0d 20 20 20 20 20 20 20 | 20 20 20 52 65 70 6c 79 |. | Reply|
|00002e70| 4d 65 73 73 61 67 65 4e | 75 6d 62 65 72 26 3d 30 |MessageN|umber&=0|
|00002e80| 0d 20 20 20 20 20 20 20 | 20 20 20 4d 65 73 73 61 |. | Messa|
|00002e90| 67 65 4c 65 6e 67 74 68 | 26 3d 30 0d 20 20 20 20 |geLength|&=0. |
|00002ea0| 20 20 20 20 20 20 4e 75 | 6c 6c 24 3d 43 48 52 24 | Nu|ll$=CHR$|
|00002eb0| 28 30 29 0d 0d 0d 22 4d | 65 73 73 61 67 65 42 6f |(0)..."M|essageBo|
|00002ec0| 64 79 22 0d 0d 20 20 20 | 20 20 20 20 20 20 20 4c |dy".. | L|
|00002ed0| 49 4e 45 20 49 4e 50 55 | 54 20 23 35 2c 6c 6e 24 |INE INPU|T #5,ln$|
|00002ee0| 0d 20 20 20 20 20 20 20 | 20 20 20 4c 4f 4e 47 20 |. | LONG |
|00002ef0| 49 46 20 6c 6e 24 3d 4e | 75 6c 6c 24 20 41 4e 44 |IF ln$=N|ull$ AND|
|00002f00| 20 4d 65 73 73 61 67 65 | 4c 65 6e 67 74 68 26 3d | Message|Length&=|
|00002f10| 30 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0. | |
|00002f20| 20 48 6f 6c 64 24 3d 43 | 48 52 24 28 36 29 0d 20 | Hold$=C|HR$(6). |
|00002f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 61 24 | | a$|
|00002f40| 3d 4d 73 67 54 78 74 46 | 69 6c 65 6e 61 6d 65 24 |=MsgTxtF|ilename$|
|00002f50| 3a 65 72 24 3d 22 54 32 | 22 0d 20 20 20 20 20 20 |:er$="T2|". |
|00002f60| 20 20 20 20 20 20 20 20 | 20 50 52 49 4e 54 20 23 | | PRINT #|
|00002f70| 32 2c 48 6f 6c 64 24 3b | 0d 20 20 20 20 20 20 20 |2,Hold$;|. |
|00002f80| 20 20 20 20 20 20 20 20 | 48 6f 6c 64 24 3d 22 20 | |Hold$=" |
|00002f90| 20 20 20 20 20 22 0d 20 | 20 20 20 20 20 20 20 20 | ". | |
|00002fa0| 20 20 20 20 20 20 50 52 | 49 4e 54 20 23 32 2c 48 | PR|INT #2,H|
|00002fb0| 6f 6c 64 24 3b 0d 20 20 | 20 20 20 20 20 20 20 20 |old$;. | |
|00002fc0| 20 20 20 20 20 4d 73 67 | 54 78 74 42 79 74 65 73 | Msg|TxtBytes|
|00002fd0| 26 3d 4d 73 67 54 78 74 | 42 79 74 65 73 26 2b 37 |&=MsgTxt|Bytes&+7|
|00002fe0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00002ff0| 4d 65 73 73 61 67 65 4c | 65 6e 67 74 68 26 3d 37 |MessageL|ength&=7|
|00003000| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00003010| 47 4f 53 55 42 20 22 4d | 65 73 73 61 67 65 5f 52 |GOSUB "M|essage_R|
|00003020| 65 63 6f 72 64 5f 57 72 | 69 74 65 5f 43 6f 6e 76 |ecord_Wr|ite_Conv|
|00003030| 65 72 73 69 6f 6e 22 0d | 20 20 20 20 20 20 20 20 |ersion".| |
|00003040| 20 20 20 20 20 20 20 47 | 4f 53 55 42 20 22 4d 65 | G|OSUB "Me|
|00003050| 73 73 61 67 65 5f 52 65 | 63 6f 72 64 5f 57 72 69 |ssage_Re|cord_Wri|
|00003060| 74 65 22 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |te". | |
|00003070| 20 20 20 47 4f 53 55 42 | 20 22 55 73 65 72 5f 43 | GOSUB| "User_C|
|00003080| 68 65 63 6b 22 0d 20 20 | 20 20 20 20 20 20 20 20 |heck". | |
|00003090| 20 20 20 20 20 47 4f 54 | 4f 20 22 4e 65 78 74 5f | GOT|O "Next_|
|000030a0| 4d 65 73 73 61 67 65 22 | 0d 20 20 20 20 20 20 20 |Message"|. |
|000030b0| 20 20 20 45 4e 44 20 49 | 46 0d 20 20 20 20 20 20 | END I|F. |
|000030c0| 20 20 20 20 4c 4f 4e 47 | 20 49 46 20 6c 6e 24 3d | LONG| IF ln$=|
|000030d0| 4e 75 6c 6c 24 0d 20 20 | 20 20 20 20 20 20 20 20 |Null$. | |
|000030e0| 20 20 20 20 20 47 4f 53 | 55 42 20 22 4d 65 73 73 | GOS|UB "Mess|
|000030f0| 61 67 65 5f 52 65 63 6f | 72 64 5f 57 72 69 74 65 |age_Reco|rd_Write|
|00003100| 5f 43 6f 6e 76 65 72 73 | 69 6f 6e 22 0d 20 20 20 |_Convers|ion". |
|00003110| 20 20 20 20 20 20 20 20 | 20 20 20 20 47 4f 53 55 | | GOSU|
|00003120| 42 20 22 4d 65 73 73 61 | 67 65 5f 52 65 63 6f 72 |B "Messa|ge_Recor|
|00003130| 64 5f 57 72 69 74 65 22 | 0d 20 20 20 20 20 20 20 |d_Write"|. |
|00003140| 20 20 20 20 20 20 20 20 | 47 4f 53 55 42 20 22 55 | |GOSUB "U|
|00003150| 73 65 72 5f 43 68 65 63 | 6b 22 0d 20 20 20 20 20 |ser_Chec|k". |
|00003160| 20 20 20 20 20 20 20 20 | 20 20 47 4f 54 4f 20 22 | | GOTO "|
|00003170| 4e 65 78 74 5f 4d 65 73 | 73 61 67 65 22 0d 20 20 |Next_Mes|sage". |
|00003180| 20 20 20 20 20 20 20 20 | 58 45 4c 53 45 0d 20 20 | |XELSE. |
|00003190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6c 25 3d | | l%=|
|000031a0| 4c 45 4e 28 6c 6e 24 29 | 0d 20 20 20 20 20 20 20 |LEN(ln$)|. |
|000031b0| 20 20 20 20 20 20 20 20 | 48 6f 6c 64 24 3d 43 48 | |Hold$=CH|
|000031c0| 52 24 28 6c 25 29 0d 20 | 20 20 20 20 20 20 20 20 |R$(l%). | |
|000031d0| 20 20 20 20 20 20 61 24 | 3d 4d 73 67 54 78 74 46 | a$|=MsgTxtF|
|000031e0| 69 6c 65 6e 61 6d 65 24 | 3a 65 72 24 3d 22 54 33 |ilename$|:er$="T3|
|000031f0| 22 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |". | |
|00003200| 20 50 52 49 4e 54 20 23 | 32 2c 48 6f 6c 64 24 3b | PRINT #|2,Hold$;|
|00003210| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00003220| 50 52 49 4e 54 20 23 32 | 2c 6c 6e 24 3b 0d 20 20 |PRINT #2|,ln$;. |
|00003230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 4d 73 67 | | Msg|
|00003240| 54 78 74 42 79 74 65 73 | 26 3d 4d 73 67 54 78 74 |TxtBytes|&=MsgTxt|
|00003250| 42 79 74 65 73 26 2b 31 | 2b 6c 25 0d 20 20 20 20 |Bytes&+1|+l%. |
|00003260| 20 20 20 20 20 20 20 20 | 20 20 20 4d 65 73 73 61 | | Messa|
|00003270| 67 65 4c 65 6e 67 74 68 | 26 3d 4d 65 73 73 61 67 |geLength|&=Messag|
|00003280| 65 4c 65 6e 67 74 68 26 | 2b 31 2b 6c 25 0d 20 20 |eLength&|+1+l%. |
|00003290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 47 4f 54 | | GOT|
|000032a0| 4f 20 22 4d 65 73 73 61 | 67 65 42 6f 64 79 22 0d |O "Messa|geBody".|
|000032b0| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 20 49 46 | | END IF|
|000032c0| 0d 20 20 20 20 20 20 20 | 20 20 20 4f 4e 20 45 52 |. | ON ER|
|000032d0| 52 4f 52 20 52 45 54 55 | 52 4e 0d 0d 22 4e 65 78 |ROR RETU|RN.."Nex|
|000032e0| 74 5f 4d 65 73 73 61 67 | 65 22 0d 0d 20 20 20 20 |t_Messag|e".. |
|000032f0| 20 20 20 20 20 20 47 4f | 53 55 42 20 22 43 75 72 | GO|SUB "Cur|
|00003300| 73 6f 72 5f 53 70 69 6e | 22 0d 20 20 20 20 20 20 |sor_Spin|". |
|00003310| 20 20 20 27 20 55 70 64 | 61 74 65 20 53 74 61 74 | ' Upd|ate Stat|
|00003320| 73 20 6f 6e 20 50 72 6f | 63 65 73 73 20 57 69 6e |s on Pro|cess Win|
|00003330| 64 6f 77 0d 0d 22 53 63 | 72 65 65 6e 5f 55 70 64 |dow.."Sc|reen_Upd|
|00003340| 61 74 65 22 0d 0d 20 20 | 20 20 20 20 20 20 20 20 |ate".. | |
|00003350| 49 46 20 55 43 41 53 45 | 24 28 42 79 74 65 31 24 |IF UCASE|$(Byte1$|
|00003360| 29 3d 22 44 22 20 54 48 | 45 4e 20 44 65 6c 65 74 |)="D" TH|EN Delet|
|00003370| 65 43 6f 75 6e 74 26 3d | 44 65 6c 65 74 65 43 6f |eCount&=|DeleteCo|
|00003380| 75 6e 74 26 2b 31 0d 0d | 20 20 20 20 20 20 20 20 |unt&+1..| |
|00003390| 20 20 27 20 55 70 64 61 | 74 65 73 20 47 72 61 70 | ' Upda|tes Grap|
|000033a0| 68 20 6f 6e 20 50 72 6f | 63 65 73 73 20 57 69 6e |h on Pro|cess Win|
|000033b0| 64 6f 77 0d 0d 20 20 20 | 20 20 20 20 20 20 20 50 |dow.. | P|
|000033c0| 45 4e 2c 2c 31 2c 39 2c | 33 0d 20 20 20 20 20 20 |EN,,1,9,|3. |
|000033d0| 20 20 20 20 42 61 74 63 | 68 43 6f 75 6e 74 26 3d | Batc|hCount&=|
|000033e0| 42 61 74 63 68 43 6f 75 | 6e 74 26 2b 4d 65 73 73 |BatchCou|nt&+Mess|
|000033f0| 61 67 65 4c 65 6e 67 74 | 68 26 2b 4c 65 6e 67 74 |ageLengt|h&+Lengt|
|00003400| 68 48 6f 6c 64 26 0d 20 | 20 20 20 20 20 20 20 20 |hHold&. | |
|00003410| 20 62 61 72 25 3d 32 30 | 30 2a 42 61 74 63 68 43 | bar%=20|0*BatchC|
|00003420| 6f 75 6e 74 26 2f 49 6d | 70 6f 72 74 42 79 74 65 |ount&/Im|portByte|
|00003430| 53 69 7a 65 26 0d 20 20 | 20 20 20 20 20 20 20 20 |Size&. | |
|00003440| 49 46 20 62 61 72 25 20 | 3e 3d 32 34 30 20 54 48 |IF bar% |>=240 TH|
|00003450| 45 4e 20 62 61 72 25 3d | 32 33 39 0d 20 20 20 20 |EN bar%=|239. |
|00003460| 20 20 20 20 20 20 42 4f | 58 20 46 49 4c 4c 20 42 | BO|X FILL B|
|00003470| 61 72 4f 66 66 53 65 74 | 25 2b 31 32 2c 32 35 30 |arOffSet|%+12,250|
|00003480| 2d 62 61 72 25 20 54 4f | 20 42 61 72 4f 66 66 53 |-bar% TO| BarOffS|
|00003490| 65 74 25 2b 31 2c 32 35 | 30 0d 20 20 20 20 20 20 |et%+1,25|0. |
|000034a0| 20 20 20 20 43 41 4c 4c | 20 50 45 4e 4e 4f 52 4d | CALL| PENNORM|
|000034b0| 41 4c 0d 0d 20 20 20 20 | 20 20 20 20 20 20 50 65 |AL.. | Pe|
|000034c0| 72 4d 69 6e 75 74 65 43 | 6f 6d 70 75 74 65 21 3d |rMinuteC|ompute!=|
|000034d0| 28 54 49 4d 45 52 2d 50 | 65 72 4d 69 6e 75 74 65 |(TIMER-P|erMinute|
|000034e0| 53 74 61 72 74 26 29 0d | 20 20 20 20 20 20 20 20 |Start&).| |
|000034f0| 20 20 4d 73 67 50 65 72 | 4d 69 6e 25 3d 42 61 74 | MsgPer|Min%=Bat|
|00003500| 63 68 43 6f 75 6e 74 26 | 2f 50 65 72 4d 69 6e 75 |chCount&|/PerMinu|
|00003510| 74 65 43 6f 6d 70 75 74 | 65 21 0d 20 20 20 20 20 |teComput|e!. |
|00003520| 20 20 20 20 20 43 41 4c | 4c 20 4d 4f 56 45 54 4f | CAL|L MOVETO|
|00003530| 28 32 32 35 2c 39 39 29 | 3a 50 52 49 4e 54 20 55 |(225,99)|:PRINT U|
|00003540| 53 49 4e 47 20 22 23 23 | 23 2c 23 23 23 22 3b 49 |SING "##|#,###";I|
|00003550| 6d 70 6f 72 74 43 6f 75 | 6e 74 26 0d 20 20 20 20 |mportCou|nt&. |
|00003560| 20 20 20 20 20 20 43 41 | 4c 4c 20 4d 4f 56 45 54 | CA|LL MOVET|
|00003570| 4f 28 32 32 35 2c 31 31 | 35 29 3a 50 52 49 4e 54 |O(225,11|5):PRINT|
|00003580| 20 55 53 49 4e 47 20 22 | 23 23 23 2c 23 23 23 22 | USING "|###,###"|
|00003590| 3b 4d 65 73 73 61 67 65 | 4e 75 6d 62 65 72 26 0d |;Message|Number&.|
|000035a0| 20 20 20 20 20 20 20 20 | 20 20 43 41 4c 4c 20 4d | | CALL M|
|000035b0| 4f 56 45 54 4f 28 32 32 | 35 2c 31 33 31 29 3a 50 |OVETO(22|5,131):P|
|000035c0| 52 49 4e 54 20 55 53 49 | 4e 47 20 22 23 23 23 2c |RINT USI|NG "###,|
|000035d0| 23 23 23 22 3b 42 61 74 | 63 68 43 6f 75 6e 74 26 |###";Bat|chCount&|
|000035e0| 0d 20 20 20 20 20 20 20 | 20 20 20 43 41 4c 4c 20 |. | CALL |
|000035f0| 4d 4f 56 45 54 4f 28 32 | 32 35 2c 31 36 32 29 3a |MOVETO(2|25,162):|
|00003600| 50 52 49 4e 54 20 55 53 | 49 4e 47 20 22 23 23 23 |PRINT US|ING "###|
|00003610| 2c 23 23 23 22 3b 4d 73 | 67 50 65 72 4d 69 6e 25 |,###";Ms|gPerMin%|
|00003620| 0d 0d 20 20 20 20 20 55 | 4e 54 49 4c 20 45 4f 46 |.. U|NTIL EOF|
|00003630| 28 35 29 0d 20 20 20 20 | 20 43 41 4c 4c 20 4d 4f |(5). | CALL MO|
|00003640| 56 45 54 4f 28 33 36 34 | 2c 32 34 34 29 3a 50 52 |VETO(364|,244):PR|
|00003650| 49 4e 54 20 54 49 4d 45 | 24 0d 0d 22 46 69 6e 69 |INT TIME|$.."Fini|
|00003660| 73 68 65 64 5f 45 78 70 | 6f 72 74 73 22 0d 0d 20 |shed_Exp|orts".. |
|00003670| 20 20 20 20 46 69 6e 69 | 73 68 54 69 6d 65 26 3d | Fini|shTime&=|
|00003680| 54 49 4d 45 52 0d 0d 20 | 20 20 20 20 27 20 4d 61 |TIMER.. | ' Ma|
|00003690| 6b 65 20 73 75 72 65 20 | 70 72 6f 63 65 73 73 20 |ke sure |process |
|000036a0| 67 72 61 70 68 20 65 6e | 64 73 20 61 74 20 31 30 |graph en|ds at 10|
|000036b0| 30 25 0d 0d 20 20 20 20 | 20 50 45 4e 2c 2c 31 2c |0%.. | PEN,,1,|
|000036c0| 39 2c 33 0d 20 20 20 20 | 20 62 61 72 25 20 3d 20 |9,3. | bar% = |
|000036d0| 32 34 30 0d 20 20 20 20 | 20 42 4f 58 20 46 49 4c |240. | BOX FIL|
|000036e0| 4c 20 42 61 72 4f 66 66 | 53 65 74 25 2b 31 32 2c |L BarOff|Set%+12,|
|000036f0| 32 35 30 2d 62 61 72 25 | 20 54 4f 20 42 61 72 4f |250-bar%| TO BarO|
|00003700| 66 66 53 65 74 25 2b 31 | 2c 32 35 30 0d 20 20 20 |ffSet%+1|,250. |
|00003710| 20 20 43 41 4c 4c 20 50 | 45 4e 4e 4f 52 4d 41 4c | CALL P|ENNORMAL|
|00003720| 0d 0d 20 20 20 20 20 43 | 4c 4f 53 45 20 23 31 2c |.. C|LOSE #1,|
|00003730| 32 2c 35 2c 36 0d 20 20 | 20 20 20 47 4f 53 55 42 |2,5,6. | GOSUB|
|00003740| 20 22 43 75 72 73 6f 72 | 5f 53 70 69 6e 22 0d 20 | "Cursor|_Spin". |
|00003750| 20 20 20 20 53 63 72 65 | 65 6e 4c 69 6e 65 24 3d | Scre|enLine$=|
|00003760| 22 44 65 6c 65 74 69 6e | 67 20 47 65 6e 65 72 69 |"Deletin|g Generi|
|00003770| 63 20 49 6d 70 6f 72 74 | 20 46 69 6c 65 22 0d 20 |c Import| File". |
|00003780| 20 20 20 20 47 4f 53 55 | 42 20 22 53 63 72 65 65 | GOSU|B "Scree|
|00003790| 6e 5f 4c 6f 67 5f 44 69 | 73 70 6c 61 79 22 0d 20 |n_Log_Di|splay". |
|000037a0| 20 20 20 20 61 24 3d 47 | 65 6e 65 72 69 63 46 69 | a$=G|enericFi|
|000037b0| 6c 65 24 3a 65 72 24 3d | 22 47 44 22 0d 20 20 20 |le$:er$=|"GD". |
|000037c0| 20 20 4f 4e 20 45 52 52 | 4f 52 20 47 4f 53 55 42 | ON ERR|OR GOSUB|
|000037d0| 20 22 46 69 6c 65 5f 45 | 72 72 6f 72 5f 54 72 61 | "File_E|rror_Tra|
|000037e0| 70 22 0d 20 20 20 20 20 | 4b 49 4c 4c 20 47 65 6e |p". |KILL Gen|
|000037f0| 65 72 69 63 46 69 6c 65 | 24 0d 20 20 20 20 20 4f |ericFile|$. O|
|00003800| 4e 20 45 52 52 4f 52 20 | 52 45 54 55 52 4e 0d 0d |N ERROR |RETURN..|
|00003810| 20 20 20 20 20 53 63 72 | 65 65 6e 4c 69 6e 65 24 | Scr|eenLine$|
|00003820| 3d 22 55 70 64 61 74 69 | 6e 67 20 4d 65 73 73 61 |="Updati|ng Messa|
|00003830| 67 65 73 20 46 69 6c 65 | 22 0d 20 20 20 20 20 47 |ges File|". G|
|00003840| 4f 53 55 42 20 22 53 63 | 72 65 65 6e 5f 4c 6f 67 |OSUB "Sc|reen_Log|
|00003850| 5f 44 69 73 70 6c 61 79 | 22 0d 20 20 20 20 20 47 |_Display|". G|
|00003860| 4f 53 55 42 20 22 43 75 | 72 73 6f 72 5f 53 70 69 |OSUB "Cu|rsor_Spi|
|00003870| 6e 22 0d 0d 20 20 20 20 | 20 61 24 3d 4d 65 73 73 |n".. | a$=Mess|
|00003880| 61 67 65 73 46 69 6c 65 | 24 3a 65 72 24 3d 22 4d |agesFile|$:er$="M|
|00003890| 31 22 0d 20 20 20 20 20 | 4f 4e 20 45 52 52 4f 52 |1". |ON ERROR|
|000038a0| 20 47 4f 53 55 42 20 22 | 46 69 6c 65 5f 45 72 72 | GOSUB "|File_Err|
|000038b0| 6f 72 5f 54 72 61 70 22 | 0d 20 20 20 20 20 4f 50 |or_Trap"|. OP|
|000038c0| 45 4e 20 22 4e 22 2c 31 | 2c 4d 65 73 73 61 67 65 |EN "N",1|,Message|
|000038d0| 73 46 69 6c 65 24 2c 39 | 32 34 32 0d 20 20 20 20 |sFile$,9|242. |
|000038e0| 20 4f 4e 20 45 52 52 4f | 52 20 52 45 54 55 52 4e | ON ERRO|R RETURN|
|000038f0| 0d 20 20 20 20 20 20 20 | 20 20 20 47 4f 53 55 42 |. | GOSUB|
|00003900| 20 22 57 72 69 74 65 5f | 4d 65 73 73 61 67 65 73 | "Write_|Messages|
|00003910| 5f 46 69 6c 65 22 0d 20 | 20 20 20 20 43 4c 4f 53 |_File". | CLOS|
|00003920| 45 20 23 31 0d 0d 20 20 | 20 20 27 20 44 75 6d 70 |E #1.. | ' Dump|
|00003930| 73 20 72 65 70 6f 72 74 | 20 69 6e 66 6f 72 6d 61 |s report| informa|
|00003940| 74 69 6f 6e 20 74 6f 20 | 74 68 65 20 49 6d 45 78 |tion to |the ImEx|
|00003950| 70 6f 72 74 20 4c 6f 67 | 0d 0d 22 4c 6f 67 5f 44 |port Log|.."Log_D|
|00003960| 75 6d 70 22 0d 0d 20 20 | 20 20 20 20 47 4f 53 55 |ump".. | GOSU|
|00003970| 42 20 22 43 75 72 73 6f | 72 5f 53 70 69 6e 22 0d |B "Curso|r_Spin".|
|00003980| 20 20 20 20 20 20 4c 4f | 4e 47 20 49 46 20 62 34 | LO|NG IF b4|
|00003990| 25 3d 32 0d 20 20 20 20 | 20 20 20 20 20 20 61 78 |%=2. | ax|
|000039a0| 26 3d 45 63 68 6f 43 6f | 75 6e 74 26 2b 4e 65 74 |&=EchoCo|unt&+Net|
|000039b0| 43 6f 75 6e 74 26 2b 44 | 65 6c 65 74 65 43 6f 75 |Count&+D|eleteCou|
|000039c0| 6e 74 26 0d 20 20 20 20 | 20 20 20 20 20 20 27 20 |nt&. | ' |
|000039d0| 4f 70 65 6e 73 20 49 6d | 70 6f 72 74 20 45 78 70 |Opens Im|port Exp|
|000039e0| 6f 72 74 20 4c 6f 67 20 | 66 69 6c 65 20 61 6e 64 |ort Log |file and|
|000039f0| 20 54 69 6d 65 20 53 74 | 61 6d 70 73 20 69 74 20 | Time St|amps it |
|00003a00| 0d 20 20 20 20 20 20 20 | 20 20 20 44 45 46 20 4f |. | DEF O|
|00003a10| 50 45 4e 20 22 54 45 58 | 54 54 6d 6b 6c 22 0d 20 |PEN "TEX|TTmkl". |
|00003a20| 20 20 20 20 20 20 20 20 | 20 61 24 3d 49 6d 45 78 | | a$=ImEx|
|00003a30| 70 6f 72 74 4c 6f 67 24 | 3a 65 72 24 3d 22 4c 31 |portLog$|:er$="L1|
|00003a40| 22 0d 20 20 20 20 20 20 | 20 20 20 20 4f 4e 20 45 |". | ON E|
|00003a50| 52 52 4f 52 20 47 4f 53 | 55 42 20 22 46 69 6c 65 |RROR GOS|UB "File|
|00003a60| 5f 45 72 72 6f 72 5f 54 | 72 61 70 22 0d 20 20 20 |_Error_T|rap". |
|00003a70| 20 20 20 20 20 20 20 4f | 50 45 4e 20 22 41 22 2c | O|PEN "A",|
|00003a80| 38 38 2c 49 6d 45 78 70 | 6f 72 74 4c 6f 67 24 0d |88,ImExp|ortLog$.|
|00003a90| 20 20 20 20 20 20 20 20 | 20 20 4c 4f 4e 47 20 49 | | LONG I|
|00003aa0| 46 20 62 33 25 3d 32 0d | 20 20 20 20 20 20 20 20 |F b3%=2.| |
|00003ab0| 20 20 20 20 20 20 20 47 | 4f 53 55 42 20 22 43 75 | G|OSUB "Cu|
|00003ac0| 72 73 6f 72 5f 53 70 69 | 6e 22 0d 20 20 20 20 20 |rsor_Spi|n". |
|00003ad0| 20 20 20 20 20 20 20 20 | 20 20 50 52 49 4e 54 20 | | PRINT |
|00003ae0| 23 38 38 2c 20 53 74 61 | 72 74 54 69 6d 65 24 0d |#88, Sta|rtTime$.|
|00003af0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 50 | | P|
|00003b00| 52 49 4e 54 20 23 38 38 | 2c 20 55 53 49 4e 47 20 |RINT #88|, USING |
|00003b10| 22 23 23 23 23 23 23 23 | 23 22 3b 61 78 26 3b 3a |"#######|#";ax&;:|
|00003b20| 50 52 49 4e 54 20 23 38 | 38 2c 22 20 4d 65 73 73 |PRINT #8|8," Mess|
|00003b30| 61 67 65 73 20 53 63 61 | 6e 6e 65 64 22 0d 20 20 |ages Sca|nned". |
|00003b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 50 52 49 | | PRI|
|00003b50| 4e 54 20 23 38 38 2c 20 | 55 53 49 4e 47 20 22 23 |NT #88, |USING "#|
|00003b60| 23 23 23 23 23 23 23 22 | 3b 49 6d 70 6f 72 74 43 |#######"|;ImportC|
|00003b70| 6f 75 6e 74 26 3b 3a 50 | 52 49 4e 54 20 23 38 38 |ount&;:P|RINT #88|
|00003b80| 2c 22 20 4d 65 73 73 61 | 67 65 73 20 49 6d 70 6f |," Messa|ges Impo|
|00003b90| 72 74 65 64 22 0d 20 20 | 20 20 20 20 20 20 20 20 |rted". | |
|00003ba0| 20 20 20 20 20 50 52 49 | 4e 54 20 23 38 38 2c 20 | PRI|NT #88, |
|00003bb0| 55 53 49 4e 47 20 22 23 | 23 23 23 23 23 23 23 22 |USING "#|#######"|
|00003bc0| 3b 45 63 68 6f 43 6f 75 | 6e 74 26 3b 3a 50 52 49 |;EchoCou|nt&;:PRI|
|00003bd0| 4e 54 20 23 38 38 2c 22 | 20 45 63 68 6f 20 4d 65 |NT #88,"| Echo Me|
|00003be0| 73 73 61 67 65 73 20 49 | 6d 70 6f 72 74 65 64 22 |ssages I|mported"|
|00003bf0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00003c00| 50 52 49 4e 54 20 23 38 | 38 2c 20 55 53 49 4e 47 |PRINT #8|8, USING|
|00003c10| 20 22 23 23 23 23 23 23 | 23 23 22 3b 4e 65 74 43 | "######|##";NetC|
|00003c20| 6f 75 6e 74 26 3b 3a 50 | 52 49 4e 54 20 23 38 38 |ount&;:P|RINT #88|
|00003c30| 2c 22 20 4e 65 74 4d 61 | 69 6c 20 4d 65 73 73 61 |," NetMa|il Messa|
|00003c40| 67 65 73 20 49 6d 70 6f | 72 74 65 64 22 0d 20 20 |ges Impo|rted". |
|00003c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 50 52 49 | | PRI|
|00003c60| 4e 54 20 23 38 38 2c 20 | 55 53 49 4e 47 20 22 23 |NT #88, |USING "#|
|00003c70| 23 23 23 23 23 23 23 22 | 3b 44 65 6c 65 74 65 43 |#######"|;DeleteC|
|00003c80| 6f 75 6e 74 26 3b 3a 50 | 52 49 4e 54 20 23 38 38 |ount&;:P|RINT #88|
|00003c90| 2c 22 20 44 65 6c 65 74 | 65 64 20 4d 61 69 6c 20 |," Delet|ed Mail |
|00003ca0| 4e 4f 54 20 49 6d 70 6f | 72 74 65 64 22 0d 20 20 |NOT Impo|rted". |
|00003cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 50 52 49 | | PRI|
|00003cc0| 4e 54 20 23 38 38 2c 20 | 55 53 49 4e 47 20 22 23 |NT #88, |USING "#|
|00003cd0| 23 23 23 23 23 23 23 22 | 3b 42 61 74 63 68 43 6f |#######"|;BatchCo|
|00003ce0| 75 6e 74 26 3b 3a 50 52 | 49 4e 54 20 23 38 38 2c |unt&;:PR|INT #88,|
|00003cf0| 22 20 54 6f 74 61 6c 20 | 42 79 74 65 73 20 49 6d |" Total |Bytes Im|
|00003d00| 70 6f 72 74 65 64 22 0d | 20 20 20 20 20 20 20 20 |ported".| |
|00003d10| 20 20 20 20 20 20 20 50 | 52 49 4e 54 20 23 38 38 | P|RINT #88|
|00003d20| 2c 20 55 53 49 4e 47 20 | 22 23 23 23 23 23 23 23 |, USING |"#######|
|00003d30| 23 22 3b 28 46 69 6e 69 | 73 68 54 69 6d 65 26 2d |#";(Fini|shTime&-|
|00003d40| 53 74 61 72 74 54 69 6d | 65 26 29 3b 3a 50 52 49 |StartTim|e&);:PRI|
|00003d50| 4e 54 20 23 38 38 2c 22 | 20 45 6c 61 70 73 65 64 |NT #88,"| Elapsed|
|00003d60| 20 54 69 6d 65 20 28 53 | 65 63 6f 6e 64 73 29 22 | Time (S|econds)"|
|00003d70| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00003d80| 50 52 49 4e 54 20 23 38 | 38 2c 20 55 53 49 4e 47 |PRINT #8|8, USING|
|00003d90| 20 22 23 23 23 23 23 23 | 23 23 22 3b 4d 73 67 50 | "######|##";MsgP|
|00003da0| 65 72 4d 69 6e 25 3b 3a | 50 52 49 4e 54 20 23 38 |erMin%;:|PRINT #8|
|00003db0| 38 2c 22 20 42 79 74 65 | 73 20 50 72 6f 63 65 73 |8," Byte|s Proces|
|00003dc0| 73 65 64 20 50 65 72 2f | 53 65 63 22 0d 20 20 20 |sed Per/|Sec". |
|00003dd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 50 52 49 4e | | PRIN|
|00003de0| 54 20 23 38 38 2c 20 55 | 53 49 4e 47 20 22 23 23 |T #88, U|SING "##|
|00003df0| 23 23 23 23 23 23 22 3b | 4f 6c 64 48 69 67 68 4d |######";|OldHighM|
|00003e00| 65 73 73 61 67 65 26 3b | 3a 50 52 49 4e 54 20 23 |essage&;|:PRINT #|
|00003e10| 38 38 2c 22 20 53 74 61 | 72 74 69 6e 67 20 4d 65 |88," Sta|rting Me|
|00003e20| 73 73 61 67 65 20 4e 75 | 6d 62 65 72 22 0d 20 20 |ssage Nu|mber". |
|00003e30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 50 52 49 | | PRI|
|00003e40| 4e 54 20 23 38 38 2c 20 | 55 53 49 4e 47 20 22 23 |NT #88, |USING "#|
|00003e50| 23 23 23 23 23 23 23 22 | 3b 48 69 67 68 4d 65 73 |#######"|;HighMes|
|00003e60| 73 61 67 65 26 3b 3a 50 | 52 49 4e 54 20 23 38 38 |sage&;:P|RINT #88|
|00003e70| 2c 22 20 45 6e 64 69 6e | 67 20 4d 65 73 73 61 67 |," Endin|g Messag|
|00003e80| 65 20 4e 75 6d 62 65 72 | 22 0d 20 20 20 20 20 20 |e Number|". |
|00003e90| 20 20 20 20 20 20 20 20 | 20 49 46 20 41 72 65 61 | | IF Area|
|00003ea0| 46 69 78 46 6c 61 67 25 | 3d 32 35 35 20 54 48 45 |FixFlag%|=255 THE|
|00003eb0| 4e 20 50 52 49 4e 54 20 | 23 38 38 2c 20 55 53 49 |N PRINT |#88, USI|
|00003ec0| 4e 47 20 22 23 23 23 23 | 23 23 23 23 22 3b 41 72 |NG "####|####";Ar|
|00003ed0| 65 61 46 69 78 43 6f 75 | 6e 74 25 3b 3a 50 52 49 |eaFixCou|nt%;:PRI|
|00003ee0| 4e 54 20 23 38 38 2c 22 | 20 41 72 65 61 46 69 78 |NT #88,"| AreaFix|
|00003ef0| 20 52 65 71 75 65 73 74 | 73 22 0d 20 20 20 20 20 | Request|s". |
|00003f00| 20 20 20 20 20 20 20 20 | 20 20 46 4f 52 20 6a 25 | | FOR j%|
|00003f10| 3d 20 31 20 54 4f 20 32 | 35 35 0d 20 20 20 20 20 |= 1 TO 2|55. |
|00003f20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 4c | | L|
|00003f30| 4f 4e 47 20 49 46 20 4d | 73 67 43 6f 75 6e 74 25 |ONG IF M|sgCount%|
|00003f40| 28 6a 25 29 20 3c 3e 20 | 30 0d 20 20 20 20 20 20 |(j%) <> |0. |
|00003f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003f60| 20 20 20 50 52 49 4e 54 | 20 23 38 38 2c 20 55 53 | PRINT| #88, US|
|00003f70| 49 4e 47 20 22 23 23 23 | 23 23 23 23 23 22 3b 4d |ING "###|#####";M|
|00003f80| 73 67 43 6f 75 6e 74 25 | 28 6a 25 29 3b 0d 20 20 |sgCount%|(j%);. |
|00003f90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003fa0| 20 20 20 20 20 20 20 49 | 46 20 4d 73 67 4e 61 6d | I|F MsgNam|
|00003fb0| 65 24 28 6a 25 29 3d 22 | 22 20 54 48 45 4e 20 4d |e$(j%)="|" THEN M|
|00003fc0| 73 67 4e 61 6d 65 24 28 | 6a 25 29 3d 22 49 6e 61 |sgName$(|j%)="Ina|
|00003fd0| 63 74 69 76 65 20 41 72 | 65 61 22 0d 20 20 20 20 |ctive Ar|ea". |
|00003fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003ff0| 20 20 20 20 20 50 52 49 | 4e 54 20 23 38 38 2c 20 | PRI|NT #88, |
|00004000| 22 20 22 3b 3a 50 52 49 | 4e 54 20 23 38 38 2c 4d |" ";:PRI|NT #88,M|
|00004010| 73 67 4e 61 6d 65 24 28 | 6a 25 29 0d 20 20 20 20 |sgName$(|j%). |
|00004020| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004030| 45 4e 44 20 49 46 0d 20 | 20 20 20 20 20 20 20 20 |END IF. | |
|00004040| 20 20 20 20 20 20 4e 45 | 58 54 20 6a 25 0d 20 20 | NE|XT j%. |
|00004050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 50 52 49 | | PRI|
|00004060| 4e 54 20 23 38 38 2c 54 | 49 4d 45 24 3b 22 20 22 |NT #88,T|IME$;" "|
|00004070| 3b 44 41 54 45 24 3b 22 | 20 49 6d 70 6f 72 74 20 |;DATE$;"| Import |
|00004080| 46 69 6e 69 73 68 22 0d | 20 20 20 20 20 20 20 20 |Finish".| |
|00004090| 20 20 20 20 20 20 20 50 | 52 49 4e 54 20 23 38 38 | P|RINT #88|
|000040a0| 2c 22 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |,"------|--------|
|000040b0| 2d 22 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |-". | |
|000040c0| 20 20 47 4f 53 55 42 20 | 22 43 75 72 73 6f 72 5f | GOSUB |"Cursor_|
|000040d0| 53 70 69 6e 22 0d 20 20 | 20 20 20 20 20 20 20 20 |Spin". | |
|000040e0| 58 45 4c 53 45 0d 20 20 | 20 20 20 20 20 20 20 20 |XELSE. | |
|000040f0| 20 20 20 20 20 50 52 49 | 4e 54 20 23 38 38 2c 55 | PRI|NT #88,U|
|00004100| 53 49 4e 47 20 22 23 23 | 23 23 22 3b 49 6d 70 6f |SING "##|##";Impo|
|00004110| 72 74 43 6f 75 6e 74 26 | 3b 22 20 4d 65 73 73 61 |rtCount&|;" Messa|
|00004120| 67 65 73 20 49 6d 70 6f | 72 74 65 64 20 69 6e 20 |ges Impo|rted in |
|00004130| 22 3b 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |";. | |
|00004140| 20 20 50 52 49 4e 54 20 | 23 38 38 2c 55 53 49 4e | PRINT |#88,USIN|
|00004150| 47 20 22 23 23 23 23 22 | 3b 28 46 69 6e 69 73 68 |G "####"|;(Finish|
|00004160| 54 69 6d 65 26 2d 53 74 | 61 72 74 54 69 6d 65 26 |Time&-St|artTime&|
|00004170| 29 3b 22 20 73 65 63 6f | 6e 64 73 20 61 74 20 22 |);" seco|nds at "|
|00004180| 3b 54 49 4d 45 24 3b 22 | 20 22 3b 44 41 54 45 24 |;TIME$;"| ";DATE$|
|00004190| 0d 20 20 20 20 20 20 20 | 20 20 20 45 4e 44 20 49 |. | END I|
|000041a0| 46 0d 20 20 20 20 20 20 | 20 20 20 20 43 4c 4f 53 |F. | CLOS|
|000041b0| 45 20 23 38 38 0d 20 20 | 20 20 20 20 20 20 20 20 |E #88. | |
|000041c0| 4f 4e 20 45 52 52 4f 52 | 20 52 45 54 55 52 4e 0d |ON ERROR| RETURN.|
|000041d0| 20 20 20 20 20 20 20 20 | 20 20 47 4f 53 55 42 20 | | GOSUB |
|000041e0| 22 43 75 72 73 6f 72 5f | 53 70 69 6e 22 0d 20 20 |"Cursor_|Spin". |
|000041f0| 20 20 20 45 4e 44 20 49 | 46 0d 0d 20 20 20 20 20 | END I|F.. |
|00004200| 27 20 55 70 64 61 74 65 | 73 20 74 68 65 20 68 69 |' Update|s the hi|
|00004210| 67 68 20 6d 65 73 73 61 | 67 65 20 23 2c 20 74 68 |gh messa|ge #, th|
|00004220| 61 74 20 77 61 73 20 6c | 61 73 74 20 70 72 6f 63 |at was l|ast proc|
|00004230| 65 73 73 65 64 20 62 79 | 20 74 68 69 73 20 72 6f |essed by| this ro|
|00004240| 75 74 69 6e 65 0d 20 20 | 20 20 20 27 20 57 72 69 |utine. | ' Wri|
|00004250| 74 65 20 6e 65 77 20 48 | 69 67 68 20 4d 65 73 73 |te new H|igh Mess|
|00004260| 61 67 65 20 4e 75 6d 62 | 65 72 20 74 6f 20 53 54 |age Numb|er to ST|
|00004270| 52 20 31 32 32 35 20 69 | 6e 20 53 54 52 20 52 65 |R 1225 i|n STR Re|
|00004280| 73 6f 75 72 63 65 2e 0d | 20 0d 20 20 20 20 20 47 |source..| . G|
|00004290| 4f 53 55 42 20 22 43 75 | 72 73 6f 72 5f 53 70 69 |OSUB "Cu|rsor_Spi|
|000042a0| 6e 22 0d 20 20 20 20 20 | 53 63 72 65 65 6e 4c 69 |n". |ScreenLi|
|000042b0| 6e 65 24 3d 22 55 70 64 | 61 74 69 6e 67 20 4c 61 |ne$="Upd|ating La|
|000042c0| 73 74 20 4d 65 73 73 61 | 67 65 20 23 22 0d 20 20 |st Messa|ge #". |
|000042d0| 20 20 20 47 4f 53 55 42 | 20 22 53 63 72 65 65 6e | GOSUB| "Screen|
|000042e0| 5f 4c 6f 67 5f 44 69 73 | 70 6c 61 79 22 0d 20 20 |_Log_Dis|play". |
|000042f0| 20 20 20 64 65 66 61 75 | 6c 74 24 3d 53 54 52 24 | defau|lt$=STR$|
|00004300| 28 48 69 67 68 4d 65 73 | 73 61 67 65 26 29 0d 20 |(HighMes|sage&). |
|00004310| 20 20 20 20 64 65 66 61 | 75 6c 74 24 3d 52 49 47 | defa|ult$=RIG|
|00004320| 48 54 24 28 64 65 66 61 | 75 6c 74 24 2c 4c 45 4e |HT$(defa|ult$,LEN|
|00004330| 28 64 65 66 61 75 6c 74 | 24 29 2d 31 29 0d 20 20 |(default|$)-1). |
|00004340| 20 20 20 52 65 73 6f 75 | 72 63 65 43 6f 75 6e 74 | Resou|rceCount|
|00004350| 25 3d 31 32 32 35 0d 20 | 20 20 20 20 53 74 72 48 |%=1225. | StrH|
|00004360| 6e 64 26 3d 46 4e 20 47 | 45 54 52 45 53 4f 55 52 |nd&=FN G|ETRESOUR|
|00004370| 43 45 28 43 56 49 28 22 | 53 54 52 20 22 29 2c 52 |CE(CVI("|STR "),R|
|00004380| 65 73 6f 75 72 63 65 43 | 6f 75 6e 74 25 29 0d 20 |esourceC|ount%). |
|00004390| 20 20 20 20 43 41 4c 4c | 20 53 45 54 53 54 52 49 | CALL| SETSTRI|
|000043a0| 4e 47 28 53 74 72 48 6e | 64 26 2c 64 65 66 61 75 |NG(StrHn|d&,defau|
|000043b0| 6c 74 24 29 0d 20 20 20 | 20 20 43 41 4c 4c 20 43 |lt$). | CALL C|
|000043c0| 48 41 4e 47 45 44 52 45 | 53 4f 55 52 43 45 28 53 |HANGEDRE|SOURCE(S|
|000043d0| 74 72 48 6e 64 26 29 0d | 20 20 20 20 20 43 41 4c |trHnd&).| CAL|
|000043e0| 4c 20 55 50 44 41 54 45 | 52 45 53 46 49 4c 45 28 |L UPDATE|RESFILE(|
|000043f0| 52 65 66 6e 75 6d 25 29 | 0d 20 20 20 20 20 47 4f |Refnum%)|. GO|
|00004400| 53 55 42 20 22 43 75 72 | 73 6f 72 5f 53 70 69 6e |SUB "Cur|sor_Spin|
|00004410| 22 0d 0d 20 20 20 20 20 | 47 4f 53 55 42 20 22 54 |".. |GOSUB "T|
|00004420| 61 62 62 79 5f 4c 61 75 | 6e 63 68 22 0d 20 20 20 |abby_Lau|nch". |
|00004430| 20 20 47 4f 53 55 42 20 | 22 54 61 62 62 79 5f 4c | GOSUB |"Tabby_L|
|00004440| 61 75 6e 63 68 5f 45 72 | 72 6f 72 22 0d 20 20 20 |aunch_Er|ror". |
|00004450| 20 20 45 4e 44 0d 0d 0d | 22 41 72 65 61 46 69 78 | END...|"AreaFix|
|00004460| 22 0d 0d 20 20 20 20 20 | 20 0d 20 20 20 20 20 54 |".. | . T|
|00004470| 45 58 54 20 30 2c 31 32 | 2c 30 2c 30 20 20 20 20 |EXT 0,12|,0,0 |
|00004480| 20 0d 20 20 20 20 20 54 | 25 3d 31 32 38 3a 4c 25 | . T|%=128:L%|
|00004490| 3d 33 30 36 3a 42 25 3d | 31 34 34 3a 52 25 3d 34 |=306:B%=|144:R%=4|
|000044a0| 35 33 3a 54 65 6d 70 24 | 3d 22 41 72 65 61 46 69 |53:Temp$|="AreaFi|
|000044b0| 78 20 52 65 71 2e 22 0d | 20 20 20 20 20 43 41 4c |x Req.".| CAL|
|000044c0| 4c 20 54 45 58 54 42 4f | 58 28 56 41 52 50 54 52 |L TEXTBO|X(VARPTR|
|000044d0| 28 54 65 6d 70 24 29 2b | 31 2c 4c 45 4e 28 54 65 |(Temp$)+|1,LEN(Te|
|000044e0| 6d 70 24 29 2c 54 25 2c | 20 31 29 0d 20 20 20 20 |mp$),T%,| 1). |
|000044f0| 20 54 45 58 54 20 34 2c | 2c 3a 20 27 20 a5 20 4d | TEXT 4,|,: ' . M|
|00004500| 6f 6e 6f 63 6f 2e 20 50 | 6c 61 69 6e 2c 20 31 32 |onoco. P|lain, 12|
|00004510| 70 74 0d 20 20 20 20 20 | 41 72 65 61 46 69 78 46 |pt. |AreaFixF|
|00004520| 6c 61 67 25 3d 32 35 35 | 0d 20 20 20 20 20 41 72 |lag%=255|. Ar|
|00004530| 65 61 46 69 78 43 6f 75 | 6e 74 25 3d 41 72 65 61 |eaFixCou|nt%=Area|
|00004540| 46 69 78 43 6f 75 6e 74 | 25 2b 31 0d 20 20 20 20 |FixCount|%+1. |
|00004550| 20 44 45 46 20 4f 50 45 | 4e 20 22 54 45 58 54 51 | DEF OPE|N "TEXTQ|
|00004560| 45 44 31 22 0d 20 20 20 | 20 20 4f 50 45 4e 20 22 |ED1". | OPEN "|
|00004570| 41 22 2c 33 2c 41 72 65 | 61 46 69 78 46 69 6c 65 |A",3,Are|aFixFile|
|00004580| 24 0d 0d 20 20 20 20 20 | 50 52 49 4e 54 20 23 33 |$.. |PRINT #3|
|00004590| 2c 52 65 63 6f 72 64 46 | 6c 61 67 24 0d 20 20 20 |,RecordF|lag$. |
|000045a0| 20 20 50 52 49 4e 54 20 | 23 33 2c 43 61 74 61 67 | PRINT |#3,Catag|
|000045b0| 6f 72 79 24 0d 20 20 20 | 20 20 50 52 49 4e 54 20 |ory$. | PRINT |
|000045c0| 23 33 2c 4d 65 73 73 61 | 67 65 44 61 74 65 24 0d |#3,Messa|geDate$.|
|000045d0| 20 20 20 20 20 50 52 49 | 4e 54 20 23 33 2c 4d 65 | PRI|NT #3,Me|
|000045e0| 73 73 61 67 65 54 69 6d | 65 24 0d 20 20 20 20 20 |ssageTim|e$. |
|000045f0| 50 52 49 4e 54 20 23 33 | 2c 4e 6f 64 65 24 0d 20 |PRINT #3|,Node$. |
|00004600| 20 20 20 20 50 52 49 4e | 54 20 23 33 2c 4d 65 73 | PRIN|T #3,Mes|
|00004610| 73 61 67 65 46 72 6f 6d | 24 0d 20 20 20 20 20 50 |sageFrom|$. P|
|00004620| 52 49 4e 54 20 23 33 2c | 4d 65 73 73 61 67 65 54 |RINT #3,|MessageT|
|00004630| 6f 24 0d 20 20 20 20 20 | 50 52 49 4e 54 20 23 33 |o$. |PRINT #3|
|00004640| 2c 4d 65 73 73 61 67 65 | 53 75 62 6a 65 63 74 24 |,Message|Subject$|
|00004650| 0d 0d 22 41 72 65 61 4c | 6f 6f 70 22 0d 0d 20 20 |.."AreaL|oop".. |
|00004660| 20 20 20 4c 49 4e 45 20 | 49 4e 50 55 54 20 23 35 | LINE |INPUT #5|
|00004670| 2c 78 6c 6e 24 0d 20 20 | 20 20 20 4d 65 73 73 61 |,xln$. | Messa|
|00004680| 67 65 4c 65 6e 67 74 68 | 26 3d 4d 65 73 73 61 67 |geLength|&=Messag|
|00004690| 65 4c 65 6e 67 74 68 26 | 2b 31 2b 4c 45 4e 28 78 |eLength&|+1+LEN(x|
|000046a0| 6c 6e 24 29 0d 20 20 20 | 20 20 50 52 49 4e 54 20 |ln$). | PRINT |
|000046b0| 23 33 2c 78 6c 6e 24 0d | 20 20 20 20 20 4c 4f 4e |#3,xln$.| LON|
|000046c0| 47 20 49 46 20 78 6c 6e | 24 3d 4e 75 6c 6c 24 0d |G IF xln|$=Null$.|
|000046d0| 20 20 20 20 20 20 20 20 | 20 20 43 4c 4f 53 45 20 | | CLOSE |
|000046e0| 23 33 0d 20 20 20 20 20 | 20 20 20 20 20 52 45 54 |#3. | RET|
|000046f0| 55 52 4e 0d 20 20 20 20 | 20 45 4e 44 20 49 46 0d |URN. | END IF.|
|00004700| 20 20 20 20 20 47 4f 54 | 4f 20 22 41 72 65 61 4c | GOT|O "AreaL|
|00004710| 6f 6f 70 22 0d 0d 0d 0d | 22 55 73 65 72 5f 43 68 |oop"....|"User_Ch|
|00004720| 65 63 6b 22 0d 0d 20 20 | 20 20 27 20 43 68 65 63 |eck".. | ' Chec|
|00004730| 6b 73 20 74 6f 20 73 65 | 65 20 69 66 20 61 20 4d |ks to se|e if a M|
|00004740| 65 73 73 61 67 65 54 6f | 20 69 73 20 61 64 64 72 |essageTo| is addr|
|00004750| 65 73 73 65 64 20 74 6f | 20 61 20 72 65 61 6c 20 |essed to| a real |
|00004760| 75 73 65 72 73 20 6f 6e | 20 74 68 65 0d 20 20 20 |users on| the. |
|00004770| 20 27 20 62 6f 61 72 64 | 2e 20 20 49 66 20 73 6f | ' board|. If so|
|00004780| 20 74 68 65 6e 20 74 68 | 61 74 20 75 73 65 72 73 | then th|at users|
|00004790| 20 4d 65 73 73 61 67 65 | 20 66 6c 61 67 20 69 73 | Message| flag is|
|000047a0| 20 73 65 74 2c 20 73 6f | 20 6e 65 78 74 20 74 69 | set, so| next ti|
|000047b0| 6d 65 0d 20 20 20 20 27 | 20 68 65 20 6c 6f 67 73 |me. '| he logs|
|000047c0| 20 69 6e 20 68 65 20 77 | 69 6c 6c 20 62 65 20 6e | in he w|ill be n|
|000047d0| 6f 74 69 66 69 65 64 20 | 6f 66 20 74 68 65 20 6d |otified |of the m|
|000047e0| 65 73 73 61 67 65 20 77 | 61 69 74 69 6e 67 2e 0d |essage w|aiting..|
|000047f0| 0d 20 20 20 20 20 46 4f | 52 20 75 25 3d 20 30 20 |. FO|R u%= 0 |
|00004800| 54 4f 20 55 73 65 72 43 | 6f 75 6e 74 25 0d 20 20 |TO UserC|ount%. |
|00004810| 20 20 20 20 20 20 20 4c | 4f 4e 47 20 49 46 20 55 | L|ONG IF U|
|00004820| 43 41 53 45 24 28 4d 65 | 73 73 61 67 65 55 73 65 |CASE$(Me|ssageUse|
|00004830| 72 48 6f 6c 64 24 29 3d | 55 43 41 53 45 24 28 55 |rHold$)=|UCASE$(U|
|00004840| 73 65 72 24 28 75 25 29 | 29 20 41 4e 44 20 55 73 |ser$(u%)|) AND Us|
|00004850| 65 72 46 6c 61 67 24 28 | 75 25 29 3d 22 30 22 0d |erFlag$(|u%)="0".|
|00004860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 55 73 | | Us|
|00004870| 65 72 46 6c 61 67 24 28 | 75 25 29 3d 22 31 22 0d |erFlag$(|u%)="1".|
|00004880| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 55 73 | | Us|
|00004890| 65 72 52 63 74 25 3d 75 | 25 0d 20 20 20 20 20 20 |erRct%=u|%. |
|000048a0| 20 20 20 20 20 20 20 20 | 47 4f 53 55 42 20 22 55 | |GOSUB "U|
|000048b0| 73 65 72 4c 6f 67 5f 57 | 72 69 74 65 22 0d 20 20 |serLog_W|rite". |
|000048c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 75 25 3d 55 | | u%=U|
|000048d0| 73 65 72 43 6f 75 6e 74 | 25 2b 39 39 0d 20 20 20 |serCount|%+99. |
|000048e0| 20 20 20 20 20 20 45 4e | 44 20 49 46 0d 20 20 20 | EN|D IF. |
|000048f0| 20 20 4e 45 58 54 20 75 | 25 0d 20 20 20 20 20 52 | NEXT u|%. R|
|00004900| 45 54 55 52 4e 0d 20 20 | 20 20 20 20 20 20 20 20 |ETURN. | |
|00004910| 20 20 20 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 | . | |
|00004920| 20 20 0d 0d 0d 0d 22 4d | 65 73 73 61 67 65 5f 52 | ...."M|essage_R|
|00004930| 65 63 6f 72 64 5f 57 72 | 69 74 65 22 0d 0d 20 20 |ecord_Wr|ite".. |
|00004940| 20 20 20 27 20 54 68 69 | 73 20 6d 6f 64 75 6c 65 | ' Thi|s module|
|00004950| 20 77 72 69 74 65 73 20 | 74 68 65 20 72 65 63 6f | writes |the reco|
|00004960| 72 64 20 74 6f 20 74 68 | 65 20 4d 53 47 48 44 52 |rd to th|e MSGHDR|
|00004970| 20 66 69 6c 65 2c 20 66 | 6f 72 20 74 68 65 20 6e | file, f|or the n|
|00004980| 65 77 20 6d 65 73 73 61 | 67 65 0d 0d 0d 20 20 20 |ew messa|ge... |
|00004990| 20 20 61 24 3d 4d 65 73 | 73 61 67 65 73 46 69 6c | a$=Mes|sagesFil|
|000049a0| 65 24 3a 65 72 24 3d 22 | 4d 32 22 0d 20 20 20 20 |e$:er$="|M2". |
|000049b0| 20 4f 4e 20 45 52 52 4f | 52 20 47 4f 53 55 42 20 | ON ERRO|R GOSUB |
|000049c0| 22 46 69 6c 65 5f 45 72 | 72 6f 72 5f 54 72 61 70 |"File_Er|ror_Trap|
|000049d0| 22 0d 20 20 20 20 20 52 | 45 43 4f 52 44 20 23 31 |". R|ECORD #1|
|000049e0| 2c 52 63 74 26 0d 0d 20 | 20 20 20 20 57 52 49 54 |,Rct&.. | WRIT|
|000049f0| 45 20 23 31 2c 4d 65 73 | 73 61 67 65 53 74 61 74 |E #1,Mes|sageStat|
|00004a00| 75 73 24 3b 31 0d 20 20 | 20 20 20 57 52 49 54 45 |us$;1. | WRITE|
|00004a10| 20 23 31 2c 52 65 73 65 | 72 76 65 64 31 24 3b 31 | #1,Rese|rved1$;1|
|00004a20| 0d 20 20 20 20 20 57 52 | 49 54 45 20 23 31 2c 4d |. WR|ITE #1,M|
|00004a30| 65 73 73 61 67 65 4e 75 | 6d 62 65 72 26 0d 20 20 |essageNu|mber&. |
|00004a40| 20 20 20 57 52 49 54 45 | 20 23 31 2c 4d 65 73 73 | WRITE| #1,Mess|
|00004a50| 61 67 65 53 65 63 74 69 | 6f 6e 24 3b 31 0d 20 20 |ageSecti|on$;1. |
|00004a60| 20 20 20 57 52 49 54 45 | 20 23 31 2c 52 65 73 65 | WRITE| #1,Rese|
|00004a70| 72 76 65 64 32 24 3b 31 | 0d 20 20 20 20 20 57 52 |rved2$;1|. WR|
|00004a80| 49 54 45 20 23 31 2c 4d | 6f 6e 74 68 24 3b 31 0d |ITE #1,M|onth$;1.|
|00004a90| 20 20 20 20 20 57 52 49 | 54 45 20 23 31 2c 44 61 | WRI|TE #1,Da|
|00004aa0| 79 24 3b 31 0d 20 20 20 | 20 20 57 52 49 54 45 20 |y$;1. | WRITE |
|00004ab0| 23 31 2c 59 65 61 72 24 | 3b 31 0d 20 20 20 20 20 |#1,Year$|;1. |
|00004ac0| 57 52 49 54 45 20 23 31 | 2c 48 6f 75 72 24 3b 31 |WRITE #1|,Hour$;1|
|00004ad0| 0d 20 20 20 20 20 57 52 | 49 54 45 20 23 31 2c 4d |. WR|ITE #1,M|
|00004ae0| 69 6e 75 74 65 24 3b 31 | 0d 20 20 20 20 20 57 52 |inute$;1|. WR|
|00004af0| 49 54 45 20 23 31 2c 53 | 65 63 6f 6e 64 24 3b 31 |ITE #1,S|econd$;1|
|00004b00| 0d 20 20 20 20 20 57 52 | 49 54 45 20 23 31 2c 46 |. WR|ITE #1,F|
|00004b10| 72 6f 6d 43 6f 75 6e 74 | 24 3b 31 0d 20 20 20 20 |romCount|$;1. |
|00004b20| 20 57 52 49 54 45 20 23 | 31 2c 4d 65 73 73 61 67 | WRITE #|1,Messag|
|00004b30| 65 46 72 6f 6d 24 3b 33 | 31 0d 20 20 20 20 20 57 |eFrom$;3|1. W|
|00004b40| 52 49 54 45 20 23 31 2c | 54 6f 43 6f 75 6e 74 24 |RITE #1,|ToCount$|
|00004b50| 3b 31 0d 20 20 20 20 20 | 57 52 49 54 45 20 23 31 |;1. |WRITE #1|
|00004b60| 2c 4d 65 73 73 61 67 65 | 54 6f 24 3b 33 31 0d 20 |,Message|To$;31. |
|00004b70| 20 20 20 20 57 52 49 54 | 45 20 23 31 2c 53 75 62 | WRIT|E #1,Sub|
|00004b80| 6a 65 63 74 43 6f 75 6e | 74 24 3b 31 0d 20 20 20 |jectCoun|t$;1. |
|00004b90| 20 20 57 52 49 54 45 20 | 23 31 2c 4d 65 73 73 61 | WRITE |#1,Messa|
|00004ba0| 67 65 53 75 62 6a 65 63 | 74 24 3b 34 31 0d 20 20 |geSubjec|t$;41. |
|00004bb0| 20 20 20 57 52 49 54 45 | 20 23 31 2c 44 65 73 74 | WRITE| #1,Dest|
|00004bc0| 69 6e 61 74 69 6f 6e 43 | 6f 75 6e 74 24 3b 31 0d |inationC|ount$;1.|
|00004bd0| 20 20 20 20 20 57 52 49 | 54 45 20 23 31 2c 4d 65 | WRI|TE #1,Me|
|00004be0| 73 73 61 67 65 44 65 73 | 74 69 6e 61 74 69 6f 6e |ssageDes|tination|
|00004bf0| 24 3b 36 37 0d 20 20 20 | 20 20 57 52 49 54 45 20 |$;67. | WRITE |
|00004c00| 23 31 2c 4d 65 73 73 61 | 67 65 4f 66 66 53 65 74 |#1,Messa|geOffSet|
|00004c10| 26 0d 20 20 20 20 20 57 | 52 49 54 45 20 23 31 2c |&. W|RITE #1,|
|00004c20| 4d 65 73 73 61 67 65 4c | 65 6e 67 74 68 26 0d 20 |MessageL|ength&. |
|00004c30| 20 20 20 20 57 52 49 54 | 45 20 23 31 2c 52 65 70 | WRIT|E #1,Rep|
|00004c40| 6c 79 4d 65 73 73 61 67 | 65 4e 75 6d 62 65 72 26 |lyMessag|eNumber&|
|00004c50| 0d 20 20 20 20 20 57 52 | 49 54 45 20 23 31 2c 41 |. WR|ITE #1,A|
|00004c60| 63 74 75 61 6c 4d 6f 6e | 74 68 24 3b 31 0d 20 20 |ctualMon|th$;1. |
|00004c70| 20 20 20 57 52 49 54 45 | 20 23 31 2c 41 63 74 75 | WRITE| #1,Actu|
|00004c80| 61 6c 44 61 79 24 3b 31 | 0d 20 20 20 20 20 57 52 |alDay$;1|. WR|
|00004c90| 49 54 45 20 23 31 2c 41 | 63 74 75 61 6c 59 65 61 |ITE #1,A|ctualYea|
|00004ca0| 72 24 3b 31 0d 20 20 20 | 20 20 57 52 49 54 45 20 |r$;1. | WRITE |
|00004cb0| 23 31 2c 41 63 74 75 61 | 6c 48 6f 75 72 24 3b 31 |#1,Actua|lHour$;1|
|00004cc0| 0d 20 20 20 20 20 57 52 | 49 54 45 20 23 31 2c 41 |. WR|ITE #1,A|
|00004cd0| 63 74 75 61 6c 4d 69 6e | 75 74 65 24 3b 31 0d 20 |ctualMin|ute$;1. |
|00004ce0| 20 20 20 20 57 52 49 54 | 45 20 23 31 2c 41 63 74 | WRIT|E #1,Act|
|00004cf0| 75 61 6c 53 65 63 6f 6e | 64 24 3b 31 0d 20 20 20 |ualSecon|d$;1. |
|00004d00| 20 20 4f 4e 20 45 52 52 | 4f 52 20 52 45 54 55 52 | ON ERR|OR RETUR|
|00004d10| 4e 0d 20 20 20 20 20 47 | 4f 53 55 42 20 22 43 75 |N. G|OSUB "Cu|
|00004d20| 72 73 6f 72 5f 53 70 69 | 6e 22 0d 0d 20 20 20 20 |rsor_Spi|n".. |
|00004d30| 20 52 45 54 55 52 4e 0d | 0d 0d 0d 22 4d 65 73 73 | RETURN.|..."Mess|
|00004d40| 61 67 65 5f 52 65 63 6f | 72 64 5f 57 72 69 74 65 |age_Reco|rd_Write|
|00004d50| 5f 43 6f 6e 76 65 72 73 | 69 6f 6e 22 0d 0d 20 20 |_Convers|ion".. |
|00004d60| 20 20 20 27 20 54 68 69 | 73 20 6d 6f 64 75 6c 65 | ' Thi|s module|
|00004d70| 20 74 61 6b 65 73 20 74 | 68 65 20 69 6e 66 6f 72 | takes t|he infor|
|00004d80| 6d 61 74 69 6f 6e 20 72 | 65 61 64 20 69 6e 20 66 |mation r|ead in f|
|00004d90| 72 6f 6d 20 74 68 65 20 | 54 61 62 62 79 20 69 6d |rom the |Tabby im|
|00004da0| 70 6f 72 74 20 66 69 6c | 65 0d 20 20 20 20 20 27 |port fil|e. '|
|00004db0| 20 61 6e 64 20 63 6f 6e | 76 65 72 74 73 20 69 74 | and con|verts it|
|00004dc0| 20 69 6e 74 6f 20 61 20 | 66 6f 72 6d 61 74 20 61 | into a |format a|
|00004dd0| 63 63 65 70 74 61 62 6c | 65 20 74 6f 20 52 52 48 |cceptabl|e to RRH|
|00004de0| 20 32 2e 30 0d 0d 20 20 | 20 20 20 46 4f 52 20 63 | 2.0.. | FOR c|
|00004df0| 6e 74 25 3d 30 20 54 4f | 20 37 0d 20 20 20 20 20 |nt%=0 TO| 7. |
|00004e00| 20 20 20 20 20 42 69 74 | 24 28 63 6e 74 25 29 3d | Bit|$(cnt%)=|
|00004e10| 22 30 22 0d 20 20 20 20 | 20 4e 45 58 54 20 63 6e |"0". | NEXT cn|
|00004e20| 74 25 0d 0d 20 20 20 20 | 20 4c 4f 4e 47 20 49 46 |t%.. | LONG IF|
|00004e30| 20 4d 65 73 73 61 67 65 | 53 65 63 74 69 6f 6e 25 | Message|Section%|
|00004e40| 3d 31 31 0d 20 20 20 20 | 20 20 20 20 20 20 42 69 |=11. | Bi|
|00004e50| 74 24 28 35 29 3d 22 31 | 22 0d 20 20 20 20 20 45 |t$(5)="1|". E|
|00004e60| 4e 44 20 49 46 0d 20 20 | 0d 20 20 20 20 20 42 69 |ND IF. |. Bi|
|00004e70| 74 24 28 31 29 3d 22 31 | 22 3a 20 27 20 46 6c 61 |t$(1)="1|": ' Fla|
|00004e80| 67 20 61 73 20 54 61 62 | 62 79 20 70 72 6f 63 65 |g as Tab|by proce|
|00004e90| 73 73 65 64 0d 0d 20 20 | 20 20 20 52 65 73 65 72 |ssed.. | Reser|
|00004ea0| 76 65 64 31 24 3d 4d 4b | 49 24 28 30 29 0d 20 20 |ved1$=MK|I$(0). |
|00004eb0| 20 20 20 52 65 73 65 72 | 76 65 64 32 24 3d 4d 4b | Reser|ved2$=MK|
|00004ec0| 49 24 28 30 29 0d 0d 20 | 20 20 20 20 6c 25 3d 4c |I$(0).. | l%=L|
|00004ed0| 45 4e 28 4d 65 73 73 61 | 67 65 46 72 6f 6d 24 29 |EN(Messa|geFrom$)|
|00004ee0| 0d 20 20 20 20 20 4c 4f | 4e 47 20 49 46 20 6c 25 |. LO|NG IF l%|
|00004ef0| 20 3e 20 33 31 0d 20 20 | 20 20 20 20 20 20 20 20 | > 31. | |
|00004f00| 4d 65 73 73 61 67 65 46 | 72 6f 6d 24 3d 4c 45 46 |MessageF|rom$=LEF|
|00004f10| 54 24 28 4d 65 73 73 61 | 67 65 46 72 6f 6d 24 2c |T$(Messa|geFrom$,|
|00004f20| 33 31 29 0d 20 20 20 20 | 20 45 4e 44 20 49 46 0d |31). | END IF.|
|00004f30| 0d 20 20 20 20 20 6c 25 | 3d 4c 45 4e 28 4d 65 73 |. l%|=LEN(Mes|
|00004f40| 73 61 67 65 54 6f 24 29 | 0d 20 20 20 20 20 4c 4f |sageTo$)|. LO|
|00004f50| 4e 47 20 49 46 20 6c 25 | 20 3e 20 33 31 0d 20 20 |NG IF l%| > 31. |
|00004f60| 20 20 20 20 20 20 20 20 | 4d 65 73 73 61 67 65 54 | |MessageT|
|00004f70| 6f 24 3d 4c 45 46 54 24 | 28 4d 65 73 73 61 67 65 |o$=LEFT$|(Message|
|00004f80| 54 6f 24 2c 33 31 29 0d | 20 20 20 20 20 45 4e 44 |To$,31).| END|
|00004f90| 20 49 46 0d 0d 20 20 20 | 20 20 6c 25 3d 4c 45 4e | IF.. | l%=LEN|
|00004fa0| 28 4d 65 73 73 61 67 65 | 44 65 73 74 69 6e 61 74 |(Message|Destinat|
|00004fb0| 69 6f 6e 24 29 0d 20 20 | 20 20 20 4c 4f 4e 47 20 |ion$). | LONG |
|00004fc0| 49 46 20 6c 25 20 3e 20 | 36 37 0d 20 20 20 20 20 |IF l% > |67. |
|00004fd0| 20 20 20 20 20 4d 65 73 | 73 61 67 65 44 65 73 74 | Mes|sageDest|
|00004fe0| 69 6e 61 74 69 6f 6e 24 | 3d 4c 45 46 54 24 28 4d |ination$|=LEFT$(M|
|00004ff0| 65 73 73 61 67 65 44 65 | 73 74 69 6e 61 74 69 6f |essageDe|stinatio|
|00005000| 6e 24 2c 36 37 29 0d 20 | 20 20 20 20 45 4e 44 20 |n$,67). | END |
|00005010| 49 46 0d 0d 20 20 20 20 | 20 6c 25 3d 4c 45 4e 28 |IF.. | l%=LEN(|
|00005020| 4d 65 73 73 61 67 65 53 | 75 62 6a 65 63 74 24 29 |MessageS|ubject$)|
|00005030| 0d 20 20 20 20 20 4c 4f | 4e 47 20 49 46 20 6c 25 |. LO|NG IF l%|
|00005040| 20 3e 20 34 31 0d 20 20 | 20 20 20 20 20 20 20 20 | > 41. | |
|00005050| 4d 65 73 73 61 67 65 53 | 75 62 6a 65 63 74 24 3d |MessageS|ubject$=|
|00005060| 4c 45 46 54 24 28 4d 65 | 73 73 61 67 65 53 75 62 |LEFT$(Me|ssageSub|
|00005070| 6a 65 63 74 24 2c 34 31 | 29 0d 20 20 20 20 20 45 |ject$,41|). E|
|00005080| 4e 44 20 49 46 0d 0d 0d | 20 20 20 20 20 42 69 74 |ND IF...| Bit|
|00005090| 48 6f 6c 64 24 3d 22 22 | 0d 20 20 20 20 20 46 4f |Hold$=""|. FO|
|000050a0| 52 20 6a 25 20 3d 20 30 | 20 54 4f 20 37 0d 20 20 |R j% = 0| TO 7. |
|000050b0| 20 20 20 20 20 20 20 42 | 69 74 48 6f 6c 64 24 3d | B|itHold$=|
|000050c0| 42 69 74 48 6f 6c 64 24 | 2b 42 69 74 24 28 6a 25 |BitHold$|+Bit$(j%|
|000050d0| 29 0d 20 20 20 20 20 4e | 45 58 54 20 6a 25 0d 20 |). N|EXT j%. |
|000050e0| 20 20 20 20 42 69 74 48 | 6f 6c 64 24 3d 22 26 58 | BitH|old$="&X|
|000050f0| 22 2b 22 30 30 30 30 30 | 30 30 30 22 2b 42 69 74 |"+"00000|000"+Bit|
|00005100| 48 6f 6c 64 24 0d 0d 20 | 20 20 20 20 4d 65 73 73 |Hold$.. | Mess|
|00005110| 61 67 65 53 74 61 74 75 | 73 25 3d 56 41 4c 28 42 |ageStatu|s%=VAL(B|
|00005120| 69 74 48 6f 6c 64 24 29 | 0d 20 20 20 20 20 4d 65 |itHold$)|. Me|
|00005130| 73 73 61 67 65 53 74 61 | 74 75 73 24 3d 4d 4b 49 |ssageSta|tus$=MKI|
|00005140| 24 28 4d 65 73 73 61 67 | 65 53 74 61 74 75 73 25 |$(Messag|eStatus%|
|00005150| 29 3a 4d 65 73 73 61 67 | 65 53 74 61 74 75 73 24 |):Messag|eStatus$|
|00005160| 3d 52 49 47 48 54 24 28 | 4d 65 73 73 61 67 65 53 |=RIGHT$(|MessageS|
|00005170| 74 61 74 75 73 24 2c 31 | 29 0d 20 20 20 20 20 4d |tatus$,1|). M|
|00005180| 65 73 73 61 67 65 53 65 | 63 74 69 6f 6e 24 3d 4d |essageSe|ction$=M|
|00005190| 4b 49 24 28 4d 65 73 73 | 61 67 65 53 65 63 74 69 |KI$(Mess|ageSecti|
|000051a0| 6f 6e 25 29 3a 4d 65 73 | 73 61 67 65 53 65 63 74 |on%):Mes|sageSect|
|000051b0| 69 6f 6e 24 3d 52 49 47 | 48 54 24 28 4d 65 73 73 |ion$=RIG|HT$(Mess|
|000051c0| 61 67 65 53 65 63 74 69 | 6f 6e 24 2c 31 29 0d 0d |ageSecti|on$,1)..|
|000051d0| 20 20 20 20 20 4d 6f 6e | 74 68 24 3d 22 22 3a 4d | Mon|th$="":M|
|000051e0| 6f 6e 74 68 24 3d 4d 4b | 49 24 28 4d 6f 6e 74 68 |onth$=MK|I$(Month|
|000051f0| 25 29 3a 4d 6f 6e 74 68 | 24 3d 52 49 47 48 54 24 |%):Month|$=RIGHT$|
|00005200| 28 4d 6f 6e 74 68 24 2c | 31 29 0d 20 20 20 20 20 |(Month$,|1). |
|00005210| 44 61 79 24 3d 22 22 3a | 44 61 79 24 3d 4d 4b 49 |Day$="":|Day$=MKI|
|00005220| 24 28 44 61 79 25 29 3a | 44 61 79 24 3d 52 49 47 |$(Day%):|Day$=RIG|
|00005230| 48 54 24 28 44 61 79 24 | 2c 31 29 0d 20 20 20 20 |HT$(Day$|,1). |
|00005240| 20 59 65 61 72 24 3d 22 | 22 3a 59 65 61 72 24 3d | Year$="|":Year$=|
|00005250| 4d 4b 49 24 28 59 65 61 | 72 25 29 3a 59 65 61 72 |MKI$(Yea|r%):Year|
|00005260| 24 3d 52 49 47 48 54 24 | 28 59 65 61 72 24 2c 31 |$=RIGHT$|(Year$,1|
|00005270| 29 0d 20 20 20 20 20 48 | 6f 75 72 24 3d 22 22 3a |). H|our$="":|
|00005280| 48 6f 75 72 24 3d 4d 4b | 49 24 28 48 6f 75 72 25 |Hour$=MK|I$(Hour%|
|00005290| 29 3a 48 6f 75 72 24 3d | 52 49 47 48 54 24 28 48 |):Hour$=|RIGHT$(H|
|000052a0| 6f 75 72 24 2c 31 29 0d | 20 20 20 20 20 4d 69 6e |our$,1).| Min|
|000052b0| 75 74 65 24 3d 22 22 3a | 4d 69 6e 75 74 65 24 3d |ute$="":|Minute$=|
|000052c0| 4d 4b 49 24 28 4d 69 6e | 75 74 65 25 29 3a 4d 69 |MKI$(Min|ute%):Mi|
|000052d0| 6e 75 74 65 24 3d 52 49 | 47 48 54 24 28 4d 69 6e |nute$=RI|GHT$(Min|
|000052e0| 75 74 65 24 2c 31 29 0d | 20 20 20 20 20 53 65 63 |ute$,1).| Sec|
|000052f0| 6f 6e 64 24 3d 22 22 3a | 53 65 63 6f 6e 64 24 3d |ond$="":|Second$=|
|00005300| 4d 4b 49 24 28 53 65 63 | 6f 6e 64 25 29 3a 53 65 |MKI$(Sec|ond%):Se|
|00005310| 63 6f 6e 64 24 3d 52 49 | 47 48 54 24 28 53 65 63 |cond$=RI|GHT$(Sec|
|00005320| 6f 6e 64 24 2c 31 29 0d | 0d 20 20 20 20 20 41 63 |ond$,1).|. Ac|
|00005330| 74 75 61 6c 4d 6f 6e 74 | 68 24 3d 4d 4b 49 24 28 |tualMont|h$=MKI$(|
|00005340| 41 63 74 75 61 6c 4d 6f | 6e 74 68 25 29 3a 41 63 |ActualMo|nth%):Ac|
|00005350| 74 75 61 6c 4d 6f 6e 74 | 68 24 3d 52 49 47 48 54 |tualMont|h$=RIGHT|
|00005360| 24 28 41 63 74 75 61 6c | 4d 6f 6e 74 68 24 2c 31 |$(Actual|Month$,1|
|00005370| 29 0d 20 20 20 20 20 41 | 63 74 75 61 6c 44 61 79 |). A|ctualDay|
|00005380| 24 3d 4d 4b 49 24 28 41 | 63 74 75 61 6c 44 61 79 |$=MKI$(A|ctualDay|
|00005390| 25 29 3a 41 63 74 75 61 | 6c 44 61 79 24 3d 52 49 |%):Actua|lDay$=RI|
|000053a0| 47 48 54 24 28 41 63 74 | 75 61 6c 44 61 79 24 2c |GHT$(Act|ualDay$,|
|000053b0| 31 29 0d 20 20 20 20 20 | 41 63 74 75 61 6c 59 65 |1). |ActualYe|
|000053c0| 61 72 24 3d 4d 4b 49 24 | 28 41 63 74 75 61 6c 59 |ar$=MKI$|(ActualY|
|000053d0| 65 61 72 25 29 3a 41 63 | 74 75 61 6c 59 65 61 72 |ear%):Ac|tualYear|
|000053e0| 24 3d 52 49 47 48 54 24 | 28 41 63 74 75 61 6c 59 |$=RIGHT$|(ActualY|
|000053f0| 65 61 72 24 2c 31 29 0d | 20 20 20 20 20 41 63 74 |ear$,1).| Act|
|00005400| 75 61 6c 48 6f 75 72 24 | 3d 4d 4b 49 24 28 41 63 |ualHour$|=MKI$(Ac|
|00005410| 74 75 61 6c 48 6f 75 72 | 25 29 3a 41 63 74 75 61 |tualHour|%):Actua|
|00005420| 6c 48 6f 75 72 24 3d 52 | 49 47 48 54 24 28 41 63 |lHour$=R|IGHT$(Ac|
|00005430| 74 75 61 6c 48 6f 75 72 | 24 2c 31 29 0d 20 20 20 |tualHour|$,1). |
|00005440| 20 20 41 63 74 75 61 6c | 4d 69 6e 75 74 65 24 3d | Actual|Minute$=|
|00005450| 4d 4b 49 24 28 41 63 74 | 75 61 6c 4d 69 6e 75 74 |MKI$(Act|ualMinut|
|00005460| 65 25 29 3a 41 63 74 75 | 61 6c 4d 69 6e 75 74 65 |e%):Actu|alMinute|
|00005470| 24 3d 52 49 47 48 54 24 | 28 41 63 74 75 61 6c 4d |$=RIGHT$|(ActualM|
|00005480| 69 6e 75 74 65 24 2c 31 | 29 0d 20 20 20 20 20 41 |inute$,1|). A|
|00005490| 63 74 75 61 6c 53 65 63 | 6f 6e 64 24 3d 4d 4b 49 |ctualSec|ond$=MKI|
|000054a0| 24 28 41 63 74 75 61 6c | 53 65 63 6f 6e 64 25 29 |$(Actual|Second%)|
|000054b0| 3a 41 63 74 75 61 6c 53 | 65 63 6f 6e 64 24 3d 52 |:ActualS|econd$=R|
|000054c0| 49 47 48 54 24 28 41 63 | 74 75 61 6c 53 65 63 6f |IGHT$(Ac|tualSeco|
|000054d0| 6e 64 24 2c 31 29 0d 0d | 20 20 20 20 20 46 72 6f |nd$,1)..| Fro|
|000054e0| 6d 43 6f 75 6e 74 25 3d | 4c 45 4e 28 4d 65 73 73 |mCount%=|LEN(Mess|
|000054f0| 61 67 65 46 72 6f 6d 24 | 29 0d 20 20 20 20 20 46 |ageFrom$|). F|
|00005500| 72 6f 6d 43 6f 75 6e 74 | 24 3d 4d 4b 49 24 28 46 |romCount|$=MKI$(F|
|00005510| 72 6f 6d 43 6f 75 6e 74 | 25 29 3a 46 72 6f 6d 43 |romCount|%):FromC|
|00005520| 6f 75 6e 74 24 3d 52 49 | 47 48 54 24 28 46 72 6f |ount$=RI|GHT$(Fro|
|00005530| 6d 43 6f 75 6e 74 24 2c | 31 29 0d 20 20 20 20 20 |mCount$,|1). |
|00005540| 4d 65 73 73 61 67 65 46 | 72 6f 6d 24 3d 4c 45 46 |MessageF|rom$=LEF|
|00005550| 54 24 28 4d 65 73 73 61 | 67 65 46 72 6f 6d 24 2c |T$(Messa|geFrom$,|
|00005560| 46 72 6f 6d 43 6f 75 6e | 74 25 29 0d 0d 20 20 20 |FromCoun|t%).. |
|00005570| 20 20 54 6f 43 6f 75 6e | 74 25 3d 4c 45 4e 28 4d | ToCoun|t%=LEN(M|
|00005580| 65 73 73 61 67 65 54 6f | 24 29 0d 20 20 20 20 20 |essageTo|$). |
|00005590| 54 6f 43 6f 75 6e 74 24 | 3d 4d 4b 49 24 28 54 6f |ToCount$|=MKI$(To|
|000055a0| 43 6f 75 6e 74 25 29 3a | 54 6f 43 6f 75 6e 74 24 |Count%):|ToCount$|
|000055b0| 3d 52 49 47 48 54 24 28 | 54 6f 43 6f 75 6e 74 24 |=RIGHT$(|ToCount$|
|000055c0| 2c 31 29 0d 20 20 20 20 | 20 4d 65 73 73 61 67 65 |,1). | Message|
|000055d0| 54 6f 24 3d 4c 45 46 54 | 24 28 4d 65 73 73 61 67 |To$=LEFT|$(Messag|
|000055e0| 65 54 6f 24 2c 54 6f 43 | 6f 75 6e 74 25 29 0d 0d |eTo$,ToC|ount%)..|
|000055f0| 20 20 20 20 20 53 75 62 | 6a 65 63 74 43 6f 75 6e | Sub|jectCoun|
|00005600| 74 25 3d 4c 45 4e 28 4d | 65 73 73 61 67 65 53 75 |t%=LEN(M|essageSu|
|00005610| 62 6a 65 63 74 24 29 0d | 20 20 20 20 20 53 75 62 |bject$).| Sub|
|00005620| 6a 65 63 74 43 6f 75 6e | 74 24 3d 4d 4b 49 24 28 |jectCoun|t$=MKI$(|
|00005630| 53 75 62 6a 65 63 74 43 | 6f 75 6e 74 25 29 3a 53 |SubjectC|ount%):S|
|00005640| 75 62 6a 65 63 74 43 6f | 75 6e 74 24 3d 52 49 47 |ubjectCo|unt$=RIG|
|00005650| 48 54 24 28 53 75 62 6a | 65 63 74 43 6f 75 6e 74 |HT$(Subj|ectCount|
|00005660| 24 2c 31 29 0d 20 20 20 | 20 20 4d 65 73 73 61 67 |$,1). | Messag|
|00005670| 65 53 75 62 6a 65 63 74 | 24 3d 4c 45 46 54 24 28 |eSubject|$=LEFT$(|
|00005680| 4d 65 73 73 61 67 65 53 | 75 62 6a 65 63 74 24 2c |MessageS|ubject$,|
|00005690| 53 75 62 6a 65 63 74 43 | 6f 75 6e 74 25 29 0d 0d |SubjectC|ount%)..|
|000056a0| 20 20 20 20 20 44 65 73 | 74 69 6e 61 74 69 6f 6e | Des|tination|
|000056b0| 43 6f 75 6e 74 25 3d 4c | 45 4e 28 4d 65 73 73 61 |Count%=L|EN(Messa|
|000056c0| 67 65 44 65 73 74 69 6e | 61 74 69 6f 6e 24 29 0d |geDestin|ation$).|
|000056d0| 20 20 20 20 20 44 65 73 | 74 69 6e 61 74 69 6f 6e | Des|tination|
|000056e0| 43 6f 75 6e 74 24 3d 4d | 4b 49 24 28 44 65 73 74 |Count$=M|KI$(Dest|
|000056f0| 69 6e 61 74 69 6f 6e 43 | 6f 75 6e 74 25 29 3a 44 |inationC|ount%):D|
|00005700| 65 73 74 69 6e 61 74 69 | 6f 6e 43 6f 75 6e 74 24 |estinati|onCount$|
|00005710| 3d 52 49 47 48 54 24 28 | 44 65 73 74 69 6e 61 74 |=RIGHT$(|Destinat|
|00005720| 69 6f 6e 43 6f 75 6e 74 | 24 2c 31 29 0d 20 20 20 |ionCount|$,1). |
|00005730| 20 20 4d 65 73 73 61 67 | 65 44 65 73 74 69 6e 61 | Messag|eDestina|
|00005740| 74 69 6f 6e 24 3d 4c 45 | 46 54 24 28 4d 65 73 73 |tion$=LE|FT$(Mess|
|00005750| 61 67 65 44 65 73 74 69 | 6e 61 74 69 6f 6e 24 2c |ageDesti|nation$,|
|00005760| 44 65 73 74 69 6e 61 74 | 69 6f 6e 43 6f 75 6e 74 |Destinat|ionCount|
|00005770| 25 29 0d 0d 20 20 20 20 | 20 52 45 54 55 52 4e 0d |%).. | RETURN.|
|00005780| 0d 0d 0d 22 57 72 69 74 | 65 5f 4d 65 73 73 61 67 |..."Writ|e_Messag|
|00005790| 65 73 5f 46 69 6c 65 22 | 0d 0d 20 20 20 20 20 27 |es_File"|.. '|
|000057a0| 20 54 68 69 73 20 6d 6f | 64 75 6c 65 20 75 70 64 | This mo|dule upd|
|000057b0| 61 74 65 73 20 74 68 65 | 20 4d 45 53 53 41 47 45 |ates the| MESSAGE|
|000057c0| 20 66 69 6c 65 20 77 69 | 74 68 20 74 68 65 20 6e | file wi|th the n|
|000057d0| 65 77 20 48 69 67 68 2f | 4c 6f 77 20 6d 65 73 73 |ew High/|Low mess|
|000057e0| 61 67 65 0d 20 20 20 20 | 20 27 20 6e 75 6d 62 65 |age. | ' numbe|
|000057f0| 72 73 20 61 6e 64 20 74 | 68 65 20 74 6f 74 61 6c |rs and t|he total|
|00005800| 20 62 79 74 65 73 20 69 | 6e 20 74 68 65 20 4d 53 | bytes i|n the MS|
|00005810| 47 54 58 54 20 66 69 6c | 65 2e 0d 0d 20 20 20 20 |GTXT fil|e... |
|00005820| 20 61 24 3d 4d 65 73 73 | 61 67 65 73 46 69 6c 65 | a$=Mess|agesFile|
|00005830| 24 3a 65 72 24 3d 22 4d | 33 22 0d 20 20 20 20 20 |$:er$="M|3". |
|00005840| 4f 4e 20 45 52 52 4f 52 | 20 47 4f 53 55 42 20 22 |ON ERROR| GOSUB "|
|00005850| 46 69 6c 65 5f 45 72 72 | 6f 72 5f 54 72 61 70 22 |File_Err|or_Trap"|
|00005860| 0d 20 20 20 20 20 52 45 | 43 4f 52 44 20 23 31 2c |. RE|CORD #1,|
|00005870| 30 2c 35 30 0d 20 20 20 | 20 20 57 52 49 54 45 20 |0,50. | WRITE |
|00005880| 23 31 2c 4c 6f 77 4d 65 | 73 73 61 67 65 26 0d 20 |#1,LowMe|ssage&. |
|00005890| 20 20 20 20 57 52 49 54 | 45 20 23 31 2c 48 69 67 | WRIT|E #1,Hig|
|000058a0| 68 4d 65 73 73 61 67 65 | 26 0d 20 20 20 20 20 57 |hMessage|&. W|
|000058b0| 52 49 54 45 20 23 31 2c | 4d 73 67 54 78 74 42 79 |RITE #1,|MsgTxtBy|
|000058c0| 74 65 73 26 0d 20 20 20 | 20 20 4f 4e 20 45 52 52 |tes&. | ON ERR|
|000058d0| 4f 52 20 52 45 54 55 52 | 4e 0d 0d 52 45 54 55 52 |OR RETUR|N..RETUR|
|000058e0| 4e 0d 0d 0d 0d 22 55 73 | 65 72 4c 6f 67 5f 52 65 |N...."Us|erLog_Re|
|000058f0| 61 64 22 0d 0d 20 20 20 | 20 27 20 54 68 69 73 20 |ad".. | ' This |
|00005900| 6d 6f 64 75 6c 65 20 72 | 65 61 64 73 20 69 6e 20 |module r|eads in |
|00005910| 61 20 75 73 65 72 20 72 | 65 63 6f 72 64 20 61 6e |a user r|ecord an|
|00005920| 64 20 73 74 6f 72 65 73 | 20 75 73 65 72 20 6e 61 |d stores| user na|
|00005930| 6d 65 20 61 6e 64 20 6d | 65 73 73 61 67 65 0d 20 |me and m|essage. |
|00005940| 20 20 20 27 20 66 6c 61 | 67 20 73 74 61 74 75 73 | ' fla|g status|
|00005950| 20 69 6e 20 61 6e 20 61 | 72 72 61 79 2e 20 20 54 | in an a|rray. T|
|00005960| 68 69 73 20 65 6e 61 62 | 6c 65 73 20 71 75 69 63 |his enab|les quic|
|00005970| 6b 20 72 61 6d 20 75 73 | 65 72 6c 6f 67 20 73 65 |k ram us|erlog se|
|00005980| 61 72 63 68 65 73 20 61 | 6e 64 0d 20 20 20 20 27 |arches a|nd. '|
|00005990| 20 75 70 64 61 74 65 73 | 20 6f 6e 6c 79 20 77 68 | updates| only wh|
|000059a0| 65 6e 20 6e 65 63 65 73 | 73 61 72 79 20 77 69 74 |en neces|sary wit|
|000059b0| 68 20 55 73 65 72 4c 6f | 67 5f 57 72 69 74 65 2e |h UserLo|g_Write.|
|000059c0| 20 20 32 30 30 30 20 6d | 61 78 2e 20 75 73 65 72 | 2000 m|ax. user|
|000059d0| 73 20 69 6e 0d 20 20 20 | 20 27 20 74 68 69 73 20 |s in. | ' this |
|000059e0| 73 6f 75 72 63 65 2e 0d | 0d 20 20 20 20 20 61 24 |source..|. a$|
|000059f0| 3d 55 73 65 72 4c 6f 67 | 24 3a 65 72 24 3d 22 55 |=UserLog|$:er$="U|
|00005a00| 32 22 0d 20 20 20 20 20 | 4f 4e 20 45 52 52 4f 52 |2". |ON ERROR|
|00005a10| 20 47 4f 53 55 42 20 22 | 46 69 6c 65 5f 45 72 72 | GOSUB "|File_Err|
|00005a20| 6f 72 5f 54 72 61 70 22 | 0d 0d 20 20 20 20 52 45 |or_Trap"|.. RE|
|00005a30| 43 4f 52 44 20 23 36 2c | 55 73 65 72 52 63 74 25 |CORD #6,|UserRct%|
|00005a40| 0d 0d 20 20 20 20 52 45 | 41 44 20 23 36 2c 46 69 |.. RE|AD #6,Fi|
|00005a50| 72 73 74 4e 61 6d 65 24 | 3b 31 36 0d 20 20 20 20 |rstName$|;16. |
|00005a60| 52 45 41 44 20 23 36 2c | 4c 61 73 74 4e 61 6d 65 |READ #6,|LastName|
|00005a70| 24 3b 31 36 0d 20 20 20 | 20 52 45 41 44 20 23 36 |$;16. | READ #6|
|00005a80| 2c 4a 75 6e 6b 24 3b 36 | 32 0d 20 20 20 20 52 45 |,Junk$;6|2. RE|
|00005a90| 41 44 20 23 36 2c 4d 65 | 73 73 61 67 65 46 6c 61 |AD #6,Me|ssageFla|
|00005aa0| 67 24 3b 31 0d 20 20 20 | 20 52 45 41 44 20 23 36 |g$;1. | READ #6|
|00005ab0| 2c 4a 75 6e 6b 32 24 3b | 34 31 0d 0d 20 20 20 20 |,Junk2$;|41.. |
|00005ac0| 4f 4e 20 45 52 52 4f 52 | 20 52 45 54 55 52 4e 0d |ON ERROR| RETURN.|
|00005ad0| 0d 20 20 20 20 4d 65 73 | 73 61 67 65 46 6c 61 67 |. Mes|sageFlag|
|00005ae0| 25 3d 43 56 49 28 4d 65 | 73 73 61 67 65 46 6c 61 |%=CVI(Me|ssageFla|
|00005af0| 67 24 29 0d 20 20 20 20 | 4c 4f 4e 47 20 49 46 20 |g$). |LONG IF |
|00005b00| 4d 65 73 73 61 67 65 46 | 6c 61 67 25 3d 30 0d 20 |MessageF|lag%=0. |
|00005b10| 20 20 20 20 20 20 20 20 | 4d 46 6c 61 67 24 3d 22 | |MFlag$="|
|00005b20| 30 22 0d 20 20 20 20 58 | 45 4c 53 45 0d 20 20 20 |0". X|ELSE. |
|00005b30| 20 20 20 20 20 20 4d 46 | 6c 61 67 24 3d 22 31 22 | MF|lag$="1"|
|00005b40| 0d 20 20 20 20 45 4e 44 | 20 49 46 0d 20 20 20 20 |. END| IF. |
|00005b50| 46 69 72 73 74 4e 61 6d | 65 24 3d 46 4e 20 4d 61 |FirstNam|e$=FN Ma|
|00005b60| 6b 65 53 74 72 69 6e 67 | 24 28 46 69 72 73 74 4e |keString|$(FirstN|
|00005b70| 61 6d 65 24 29 0d 20 20 | 20 20 4c 61 73 74 4e 61 |ame$). | LastNa|
|00005b80| 6d 65 24 3d 46 4e 20 4d | 61 6b 65 53 74 72 69 6e |me$=FN M|akeStrin|
|00005b90| 67 24 28 4c 61 73 74 4e | 61 6d 65 24 29 0d 20 20 |g$(LastN|ame$). |
|00005ba0| 20 0d 20 20 20 20 55 73 | 65 72 24 28 55 73 65 72 | . Us|er$(User|
|00005bb0| 52 63 74 25 29 20 3d 20 | 46 69 72 73 74 4e 61 6d |Rct%) = |FirstNam|
|00005bc0| 65 24 2b 22 20 22 2b 4c | 61 73 74 4e 61 6d 65 24 |e$+" "+L|astName$|
|00005bd0| 0d 20 20 20 20 55 73 65 | 72 46 6c 61 67 24 28 55 |. Use|rFlag$(U|
|00005be0| 73 65 72 52 63 74 25 29 | 3d 4d 46 6c 61 67 24 0d |serRct%)|=MFlag$.|
|00005bf0| 0d 20 20 20 20 52 45 54 | 55 52 4e 0d 0d 0d 0d 0d |. RET|URN.....|
|00005c00| 22 55 73 65 72 4c 6f 67 | 5f 57 72 69 74 65 22 0d |"UserLog|_Write".|
|00005c10| 0d 20 20 20 20 27 20 54 | 68 69 73 20 6d 6f 64 75 |. ' T|his modu|
|00005c20| 6c 65 20 75 70 64 61 74 | 65 73 20 74 68 65 20 55 |le updat|es the U|
|00005c30| 73 65 72 6c 6f 67 20 6d | 65 73 73 61 67 65 20 66 |serlog m|essage f|
|00005c40| 6c 61 67 20 66 6f 72 20 | 69 6e 64 69 76 69 64 75 |lag for |individu|
|00005c50| 61 6c 20 75 73 65 72 73 | 0d 20 20 20 20 27 20 74 |al users|. ' t|
|00005c60| 68 61 74 20 74 68 65 79 | 20 68 61 76 65 20 6d 61 |hat they| have ma|
|00005c70| 69 6c 20 77 61 69 74 69 | 6e 67 2c 20 77 68 65 6e |il waiti|ng, when|
|00005c80| 20 74 68 65 79 20 6c 6f | 67 69 6e 20 6e 65 78 74 | they lo|gin next|
|00005c90| 20 74 69 6d 65 20 74 6f | 20 74 68 65 20 42 42 53 | time to| the BBS|
|00005ca0| 2e 0d 0d 20 20 20 20 4d | 65 73 73 61 67 65 46 6c |... M|essageFl|
|00005cb0| 61 67 24 3d 4d 4b 49 24 | 28 31 29 0d 20 20 20 20 |ag$=MKI$|(1). |
|00005cc0| 4d 65 73 73 61 67 65 46 | 6c 61 67 24 3d 52 49 47 |MessageF|lag$=RIG|
|00005cd0| 48 54 24 28 4d 65 73 73 | 61 67 65 46 6c 61 67 24 |HT$(Mess|ageFlag$|
|00005ce0| 2c 31 29 0d 0d 20 20 20 | 20 4f 4e 20 45 52 52 4f |,1).. | ON ERRO|
|00005cf0| 52 20 47 4f 53 55 42 20 | 22 46 69 6c 65 5f 45 72 |R GOSUB |"File_Er|
|00005d00| 72 6f 72 5f 54 72 61 70 | 22 0d 20 20 20 20 61 24 |ror_Trap|". a$|
|00005d10| 3d 55 73 65 72 4c 6f 67 | 24 3a 65 72 24 3d 22 55 |=UserLog|$:er$="U|
|00005d20| 33 22 0d 20 20 20 20 52 | 45 43 4f 52 44 20 23 36 |3". R|ECORD #6|
|00005d30| 2c 55 73 65 72 52 63 74 | 25 2c 39 34 0d 20 20 20 |,UserRct|%,94. |
|00005d40| 0d 20 20 20 20 57 52 49 | 54 45 20 23 36 2c 20 4d |. WRI|TE #6, M|
|00005d50| 65 73 73 61 67 65 46 6c | 61 67 24 3b 31 0d 20 20 |essageFl|ag$;1. |
|00005d60| 20 20 4f 4e 20 45 52 52 | 4f 52 20 52 45 54 55 52 | ON ERR|OR RETUR|
|00005d70| 4e 0d 0d 20 20 20 20 52 | 45 54 55 52 4e 0d 0d 0d |N.. R|ETURN...|
|00005d80| 22 43 6f 6e 66 69 67 5f | 46 69 6c 65 5f 52 65 61 |"Config_|File_Rea|
|00005d90| 64 5f 43 6f 6e 76 65 72 | 74 22 0d 0d 20 20 20 20 |d_Conver|t".. |
|00005da0| 20 20 20 20 20 20 47 4f | 53 55 42 20 22 43 75 72 | GO|SUB "Cur|
|00005db0| 73 6f 72 5f 53 70 69 6e | 22 0d 20 20 20 20 20 20 |sor_Spin|". |
|00005dc0| 20 20 20 20 4c 4f 4e 47 | 20 49 46 20 41 53 43 28 | LONG| IF ASC(|
|00005dd0| 4c 45 46 54 24 28 4d 73 | 67 50 61 74 68 24 2c 31 |LEFT$(Ms|gPath$,1|
|00005de0| 29 29 3e 30 0d 20 20 20 | 20 20 20 20 20 20 20 20 |))>0. | |
|00005df0| 20 20 20 20 4d 65 73 73 | 61 67 65 73 46 69 6c 65 | Mess|agesFile|
|00005e00| 24 3d 46 4e 20 4d 61 6b | 65 53 74 72 69 6e 67 24 |$=FN Mak|eString$|
|00005e10| 28 4d 73 67 50 61 74 68 | 24 29 2b 22 3a 4d 45 53 |(MsgPath|$)+":MES|
|00005e20| 53 41 47 45 53 22 0d 20 | 20 20 20 20 20 20 20 20 |SAGES". | |
|00005e30| 20 58 45 4c 53 45 0d 20 | 20 20 20 20 20 20 20 20 | XELSE. | |
|00005e40| 20 20 20 20 20 20 4d 65 | 73 73 61 67 65 73 46 69 | Me|ssagesFi|
|00005e50| 6c 65 24 3d 22 4d 45 53 | 53 41 47 45 53 22 3a 20 |le$="MES|SAGES": |
|00005e60| 27 20 44 65 66 61 75 6c | 74 20 6c 6f 63 61 74 69 |' Defaul|t locati|
|00005e70| 6f 6e 0d 20 20 20 20 20 | 20 20 20 20 20 45 4e 44 |on. | END|
|00005e80| 20 49 46 0d 0d 20 20 20 | 20 20 20 20 20 20 20 4c | IF.. | L|
|00005e90| 4f 4e 47 20 49 46 20 41 | 53 43 28 4c 45 46 54 24 |ONG IF A|SC(LEFT$|
|00005ea0| 28 43 61 6c 6c 65 72 4c | 6f 67 24 2c 31 29 29 3e |(CallerL|og$,1))>|
|00005eb0| 30 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0. | |
|00005ec0| 20 43 61 6c 6c 65 72 4c | 6f 67 24 3d 46 4e 20 4d | CallerL|og$=FN M|
|00005ed0| 61 6b 65 53 74 72 69 6e | 67 24 28 43 61 6c 6c 65 |akeStrin|g$(Calle|
|00005ee0| 72 4c 6f 67 24 29 2b 22 | 3a 43 61 6c 6c 65 72 4c |rLog$)+"|:CallerL|
|00005ef0| 6f 67 22 0d 20 20 20 20 | 20 20 20 20 20 20 58 45 |og". | XE|
|00005f00| 4c 53 45 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |LSE. | |
|00005f10| 20 20 20 43 61 6c 6c 65 | 72 4c 6f 67 25 3d 32 35 | Calle|rLog%=25|
|00005f20| 35 3a 20 27 20 4e 6f 20 | 43 61 6c 6c 65 72 4c 6f |5: ' No |CallerLo|
|00005f30| 67 20 66 69 6c 65 20 62 | 65 69 6e 67 20 75 73 65 |g file b|eing use|
|00005f40| 64 2c 20 73 6f 20 63 61 | 6e 27 74 20 77 72 69 74 |d, so ca|n't writ|
|00005f50| 65 20 74 6f 20 69 74 0d | 20 20 20 20 20 20 20 20 |e to it.| |
|00005f60| 20 20 45 4e 44 20 49 46 | 0d 20 0d 20 20 20 20 20 | END IF|. . |
|00005f70| 20 20 20 20 20 4c 4f 4e | 47 20 49 46 20 41 53 43 | LON|G IF ASC|
|00005f80| 28 4c 45 46 54 24 28 55 | 73 65 72 4c 6f 67 24 2c |(LEFT$(U|serLog$,|
|00005f90| 31 29 29 3e 30 0d 20 20 | 20 20 20 20 20 20 20 20 |1))>0. | |
|00005fa0| 20 20 20 20 20 55 73 65 | 72 4c 6f 67 24 3d 46 4e | Use|rLog$=FN|
|00005fb0| 20 4d 61 6b 65 53 74 72 | 69 6e 67 24 28 55 73 65 | MakeStr|ing$(Use|
|00005fc0| 72 4c 6f 67 24 29 2b 22 | 3a 55 73 65 72 4c 6f 67 |rLog$)+"|:UserLog|
|00005fd0| 22 0d 20 20 20 20 20 20 | 20 20 20 20 58 45 4c 53 |". | XELS|
|00005fe0| 45 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |E. | |
|00005ff0| 20 55 73 65 72 4c 6f 67 | 24 3d 22 55 73 65 72 4c | UserLog|$="UserL|
|00006000| 6f 67 22 3a 20 27 20 44 | 65 66 61 75 6c 74 20 6c |og": ' D|efault l|
|00006010| 6f 63 61 74 69 6f 6e 20 | 77 68 65 72 65 20 65 78 |ocation |where ex|
|00006020| 70 6f 72 74 20 69 73 0d | 20 20 20 20 20 20 20 20 |port is.| |
|00006030| 20 20 45 4e 44 20 49 46 | 0d 0d 20 20 20 20 20 20 | END IF|.. |
|00006040| 20 20 20 20 4c 4f 4e 47 | 20 49 46 20 41 53 43 28 | LONG| IF ASC(|
|00006050| 4c 45 46 54 24 28 53 79 | 73 6f 70 4e 61 6d 65 24 |LEFT$(Sy|sopName$|
|00006060| 2c 31 29 29 3e 30 0d 20 | 20 20 20 20 20 20 20 20 |,1))>0. | |
|00006070| 20 20 20 20 20 20 53 79 | 73 6f 70 4e 61 6d 65 24 | Sy|sopName$|
|00006080| 3d 46 4e 20 4d 61 6b 65 | 53 74 72 69 6e 67 24 28 |=FN Make|String$(|
|00006090| 53 79 73 6f 70 4e 61 6d | 65 24 29 0d 20 20 20 20 |SysopNam|e$). |
|000060a0| 20 20 20 20 20 20 58 45 | 4c 53 45 0d 20 20 20 20 | XE|LSE. |
|000060b0| 20 20 20 20 20 20 20 20 | 20 20 20 53 79 73 6f 70 | | Sysop|
|000060c0| 4e 61 6d 65 24 3d 22 53 | 79 73 74 65 6d 20 4f 70 |Name$="S|ystem Op|
|000060d0| 65 72 61 74 6f 72 22 0d | 20 20 20 20 20 20 20 20 |erator".| |
|000060e0| 20 20 45 4e 44 20 49 46 | 0d 0d 20 20 20 20 20 52 | END IF|.. R|
|000060f0| 45 54 55 52 4e 0d 0d 0d | 0d 22 54 61 62 62 79 5f |ETURN...|."Tabby_|
|00006100| 4c 61 75 6e 63 68 22 0d | 0d 20 20 20 20 20 47 4f |Launch".|. GO|
|00006110| 53 55 42 20 22 43 75 72 | 73 6f 72 5f 53 70 69 6e |SUB "Cur|sor_Spin|
|00006120| 22 0d 20 20 20 20 20 45 | 76 65 6e 74 43 6f 75 6e |". E|ventCoun|
|00006130| 74 25 3d 30 3a 45 52 52 | 4f 52 3d 30 0d 0d 20 20 |t%=0:ERR|OR=0.. |
|00006140| 20 20 20 4f 4e 20 45 52 | 52 4f 52 20 47 4f 53 55 | ON ER|ROR GOSU|
|00006150| 42 20 22 41 72 65 61 46 | 69 78 5f 4c 61 75 6e 63 |B "AreaF|ix_Launc|
|00006160| 68 5f 45 72 72 6f 72 22 | 0d 20 20 20 20 20 4c 4f |h_Error"|. LO|
|00006170| 4e 47 20 49 46 20 41 72 | 65 61 46 69 78 46 6c 61 |NG IF Ar|eaFixFla|
|00006180| 67 25 3d 32 35 35 0d 20 | 20 20 20 20 20 20 20 20 |g%=255. | |
|00006190| 20 52 55 4e 20 41 72 65 | 61 46 69 78 24 0d 20 20 | RUN Are|aFix$. |
|000061a0| 20 20 20 45 4e 44 20 49 | 46 0d 20 20 20 20 20 4f | END I|F. O|
|000061b0| 4e 20 45 52 52 4f 52 20 | 52 45 54 55 52 4e 0d 20 |N ERROR |RETURN. |
|000061c0| 20 20 20 20 0d 22 50 72 | 65 70 61 72 65 4e 65 78 | ."Pr|epareNex|
|000061d0| 74 4c 61 75 6e 63 68 22 | 0d 0d 20 20 20 20 20 45 |tLaunch"|.. E|
|000061e0| 76 65 6e 74 43 6f 75 6e | 74 25 3d 30 3a 45 52 52 |ventCoun|t%=0:ERR|
|000061f0| 4f 52 3d 30 0d 20 20 20 | 20 20 44 45 46 20 4f 50 |OR=0. | DEF OP|
|00006200| 45 4e 20 22 54 45 58 54 | 51 45 44 31 22 0d 0d 20 |EN "TEXT|QED1".. |
|00006210| 20 20 20 20 53 63 72 65 | 65 6e 4c 69 6e 65 24 3d | Scre|enLine$=|
|00006220| 22 43 68 65 63 6b 69 6e | 67 20 66 6f 72 20 4c 61 |"Checkin|g for La|
|00006230| 75 6e 63 68 2e 4e 65 78 | 74 20 46 69 6c 65 22 0d |unch.Nex|t File".|
|00006240| 20 20 20 20 20 47 4f 53 | 55 42 20 22 53 63 72 65 | GOS|UB "Scre|
|00006250| 65 6e 5f 4c 6f 67 5f 44 | 69 73 70 6c 61 79 22 0d |en_Log_D|isplay".|
|00006260| 0d 20 20 20 20 20 4f 50 | 45 4e 20 22 52 22 2c 31 |. OP|EN "R",1|
|00006270| 2c 4e 65 78 74 4c 61 75 | 6e 63 68 24 0d 20 20 20 |,NextLau|nch$. |
|00006280| 20 20 20 20 20 20 20 4c | 65 6e 67 74 68 26 3d 4c | L|ength&=L|
|00006290| 4f 46 28 31 2c 31 29 0d | 20 20 20 20 20 43 4c 4f |OF(1,1).| CLO|
|000062a0| 53 45 20 23 31 0d 0d 20 | 20 20 20 20 4c 4f 4e 47 |SE #1.. | LONG|
|000062b0| 20 49 46 20 4c 65 6e 67 | 74 68 26 3d 30 0d 20 20 | IF Leng|th&=0. |
|000062c0| 20 20 20 20 20 20 20 20 | 53 63 72 65 65 6e 4c 69 | |ScreenLi|
|000062d0| 6e 65 24 3d 22 46 69 6c | 65 20 4e 6f 74 20 46 6f |ne$="Fil|e Not Fo|
|000062e0| 75 6e 64 20 22 2b 4e 65 | 78 74 4c 61 75 6e 63 68 |und "+Ne|xtLaunch|
|000062f0| 24 0d 20 20 20 20 20 20 | 20 20 20 20 47 4f 53 55 |$. | GOSU|
|00006300| 42 20 22 53 63 72 65 65 | 6e 5f 4c 6f 67 5f 44 69 |B "Scree|n_Log_Di|
|00006310| 73 70 6c 61 79 22 0d 20 | 20 20 20 20 20 20 20 20 |splay". | |
|00006320| 20 45 72 72 4c 69 6e 65 | 24 20 3d 20 22 3c 3c 45 | ErrLine|$ = "<<E|
|00006330| 72 72 6f 72 20 30 31 3e | 3e 20 2a 22 2b 4e 65 78 |rror 01>|> *"+Nex|
|00006340| 74 4c 61 75 6e 63 68 24 | 2b 22 2a 20 44 6f 65 73 |tLaunch$|+"* Does|
|00006350| 20 6e 6f 74 20 45 78 69 | 73 74 20 61 74 20 65 6e | not Exi|st at en|
|00006360| 64 20 6f 66 20 49 6e 64 | 69 63 61 74 65 64 20 50 |d of Ind|icated P|
|00006370| 61 74 68 21 20 22 0d 20 | 20 20 20 20 20 20 20 20 |ath! ". | |
|00006380| 20 47 4f 53 55 42 20 22 | 45 72 72 6f 72 20 4c 6f | GOSUB "|Error Lo|
|00006390| 67 22 0d 20 20 20 20 20 | 20 20 20 20 20 4b 49 4c |g". | KIL|
|000063a0| 4c 20 4e 65 78 74 4c 61 | 75 6e 63 68 24 0d 20 20 |L NextLa|unch$. |
|000063b0| 20 20 20 20 20 20 20 20 | 47 4f 54 4f 20 22 4c 61 | |GOTO "La|
|000063c0| 75 6e 63 68 5f 53 65 71 | 75 65 6e 63 65 5f 53 74 |unch_Seq|uence_St|
|000063d0| 61 72 74 22 0d 20 20 20 | 20 20 45 4e 44 20 49 46 |art". | END IF|
|000063e0| 0d 0d 20 20 20 20 20 53 | 63 72 65 65 6e 4c 69 6e |.. S|creenLin|
|000063f0| 65 24 3d 22 4c 6f 61 64 | 69 6e 67 20 45 76 65 6e |e$="Load|ing Even|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
